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I/TEXT IS A MULTI-USER ALGOL PROGRAM FOR THE 8-5700 DESIGNED 
ALLOW USERS TO CREATE AND MAINTAIN PROGRAM AND DATA FRES ON 
DISK FROM REMOTE CONSOLES. IN ADDITION* A USER MAY COMPILE 
RUN SOURCE LANGUAGE PROGRAMS AND EXECUTE LIBRARY PROGRAMS 
HAVE THE RESULTS LISTED ON A REMOTE. 

THESE FEATURES ARE IMPLEMENTED 3Y PROVIDING FILE MAINTENANCE 
FUNCTIONS* SIMULATED KEYPUNCH CAPABILITIES AND VARIOUS OTHER 
CONTROL STATEMENTS, 

THE STATEMENTS USED TO COMMUNICATE WITH MiNl/TEXT ARE DEFINED 
AND DESCRIBED IN THIS DOCUMENTf 



♦CONVENTIONS USED IN THE DESCRIPTION OF MiNI/TEXT, 

* THE SYNTAX OF THE STATEMENTS USED TO COMMUNICATE WITH MINI/TEXT 

* IS DESCRIBED THROUGH THE USE OF METALINGUISTIC SYMBOLS. THESE 

* SYMBOLS HAVE THE FOLLOWING MEANINqSJ 
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A, < > LEFT AND RIGHT BROKEN BRACKETS ARE USED TO CONTAIN ONE 

OR MORE CHARACTERS REPRESENTING A METALI NGUI STI C VARIAB 
WHOSE VALUE IS GIVEN BY A METALINGUISTIC FORMULA, 

B, Ji= THIS SYMBOL MEANS "IS DEFINED AS*« AND SEPARATES THE 

METALINGUISTIC VARIABLE ON THE LEFT OF THE FORMULA FROM 
ITS DEFINITION ON THE RIqHT. 

C, / THIS SYMBOL MEANS "OR.** IT IS USED TO SEPARATE MULTIPLE 

DEFINITIONS OF A METALINGUISTIC VARIABLE, 

D, C ] BRACKETS ARE USED TO ENCLOSE METALINGUISTIC VARIABLES 

WHICH ARE DEFINED BY THE MEANING OF THE ENGLl SH-LANGUAG 
EXPRESSION CONTAINED WiTHiN THE BRACKETS, 

ANY MARK OR SYMBOL IN A METALINGUISTIC FORMULA WHICH IS NOT ONE 
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OF THE ABOVE METALINGUISTIC SYMBOLS DENOTES ITSELF, THE 
JUXTAPOSITION OF METALINGUISTIC VARIABLES AND/OR SYMBOLS IN A 
METALINGUISTIC FORMULA DENOTES JUXTAPOSITION OF THESE ELEMENTS 
IN THE CONSTRUCT INDICATED. 

R STATEMENT. 

Ay 

The SYNTAX FOR <ENTER STATEMENT> IS AS FOLLOWS? 

<ENTER STATEMeNT> M= * <ENtER VERB> <ENTER PARaMETERS> 
<ENTER VERB> !:= ENTER / MAKE / CREATE 
<ENTER PARAMETERS> ::= <ENTE« TYPE> <FILE NAME> 
<ENTEP TYPE> a- PROGRAM / DATA / PATCHES / [EMPTY] 
<FILE NAME> :»* 17 CHARACTER OR LESS PREFIX] tSLASH] 

17 CHARACTER OR LESS SUFFIX] 

MICS, 

THE ENTER STATEMENT ENABLES A REMQTE USER TO ESTABLISH A DATA 
FILE* SYMBOLIC PROGRAM OR SYMBOLIC PROGRAM PATCH FIlE ON DISK. 

AN ENTER TYPE SPECIFIES THE KIND qF INFORMATION TO BE ENTERED 
AND DETERMINES THE BLOCKING SPECIFICATIONS USED WITH THE FILE 
DISK. IF AN ENTER TYPE IS NOT SPECIFIED •♦PROGRAM" IS ASSUMED. 

INPUT MAY BE FROM EITHER PAPER TAPE OR THE KEYBOARD AND MAY 
CONSIST OF AS MANY AS 80 CHARACTERS, THE CARRIAGE RETURN AND 
LINE FEED CHARACTERS ARE NOT TRANSMITTED TO MiNl/TEXT SO A 
USER MAY ALLOW A SINGLE LINE OF TEXT TO EXTEND OVER SEVERAL 

physical lines if he desires. when entering "program" or progr 
"patches" only the first 72 characters of an input line are 
Placed in the program record, 

sequence numbers* with the exception of entering patches* are 
automatically provided. these numbers are stored in the 
appropriate place in program statements and become a permanent 
part of the program file. sequence numbers do not become a par 
of the data file and serve only as reference numbers in the 
event a user chooses to change a data record or terminate the 
present session and resume from that point* at a later time, 

when entering program patches the first characters of a line 
text are assumed to be a sequence number. if these characters 

NUMERIC THEY ARE PLACED IN THE PROPER POSITION WItHIN THE PROG 

RECORD. IE THE REQUIRED DIGITS ARE NOT FOUND AN ERROR 

MESSAGE IS EMITTED, A COLON MAY OPTIONALLY FOLLOW THE SEQUENCE 
NUMBER, 

WHILE OPERATING IN THE ENTER MODE A USER MAY SPECIFY THAT A 
SPECIFIC DATA RECORD OR PROGRAM STATEMENT BE MODIFIED THROUGH 
USE OF THE CHANGE STATEMENT. THE "COMP ILE"*"CONTROL"' "COPY"* 
"SEQUENCE"* "LOCK" AND "QUIT" STATEMENTS MaY ALSO BE USED WHILE 
In THE ENTER MODE. IN WHiCH CASE THE FILE CURRENTLY BEING CREA 
IS MADE A PERMANENT FILE AND ENTERED IN THE DISK 01 RECTORY.' I N 
ADDITION* THE "RENAME"* "REMOVE" AND "SEQUENCE SPECIFICATION" 
STATEMENTS MAY BE USED WHILE IN THE ENTER MODE. 

WE STATEMENT, 
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00040000 
00041000 
00042000 
00043000 

00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00049100 
00050000 
00051000 
00052000 
00053000 
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00055000 
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THE SYNTAX FOR <RESUME STATEMENT> IS AS FOILQWSI 



<resume 

<RESUME 



17 

<resumption point> 
<sequence number> 



STATEMENT> IJ= * RESUME <RESUME PARAMETeRS> 
PARAMETERS> ::= <RESUME TYPE> <FILE NAME> 

<RESUMPTION P0INT> 
<RESUME TYPE> «;= PROGRAM / DATA / PATCHES / CEMPTY3 
<FILE NAME> Ms: C7 CHARACTER OR I.ESS PREFIX! tSUASHI 

CHARACTER OR LESS SUFFIX3 / CEMPTY3 
::s <SEQUENCE NUMBER> / END / [EMPTY] 

:s CAN Integer of e or less qigitsj 



* 

* 
* 



•Semantics* 

* 




* 

* 
* 
* 
* 

* 
* 
* 
* 
* 
* 



* 

THE RESUME STATEMENT PROVIDES THE USER THE ABILITY TO ESTABLISH * 
A PROGRAM OR DATA FILE IN MULTIPLE SESSIONS. SPECIFICATIONS * 
ARE ANALOGOUS TO ENTER PARAMETERS WITH THE EXCEPTION OF THE FILE * 
NAME AND RESUMPTION POINT, IF A FILE NAME IS NOT SPECIFIED THE * 
FILE NAME GIVEN IN THE LAST ENTER, RESUME, CHANGE, U 51 » MP-l^^-r-^ * 
OR sequence: STATEMENT IS A 5 S U M EJU JJF A SrQU EN Cr'"N UMBER IS GIVEN I * 
FOR THE RfSUMPTION PO I Nf'TTXplc IF IE S THE LAST VALID LIN^ OF TEXT| * 

-m.,T,HF FI.L.E AND^RESUMPJXON JS FROM THAT P,Q1N,T ON.|IF THE "" ' ' ' * 

RESUMPTION PbiNt is EMPTY OR TRT'WORO ""END" RESUMPTION IS FROM * 
THE END Of THE FILE, IN ANY CASE MINI/TEXT RETYPES THE LAST VALID * 
LINE OF TEXT WHEN THE RESUME STATMENT IS ENTERED. * 

* 
* 
* 
STATEMENT> IS AS FOLLOWS? * 

• 

= * <CHANGE 

<CHANGE 

* <CHANGE 

<CHANGE 

<change 



•CHANGE STATEMENT, 
•SYNTAX, 

• 



THE SYNTAX FOR <CHANGE 
<CHANGe STATEMENT> { : 



<CHanGE parameters> 5:3 



parameters> 
response> / 

PARAMETERS> 
RESPONSE> 
VERB> <CHanGE 



» 



TYPE> <FILE NAME> ♦ 



<change number> <change option> 



<change 

<CHANGE 



VERB> 
TYPE> 



:j= change / FIX / 

: 1= PROGRAM / DATA 



CEMPTY] 
/ CEMPTY] 



<FILE NAME> 



<CHANGE 
<CHANGE 
<CHANGE 



:a 1:7 CHARACTER 
C7 CHARACTER 
NUMBER> J:= 
OPTION> :8= 
RESPONSE> : 



OR 
OR 



PREFIX] 
SUFFIX] 
LESS 



LESS 

LESS 
CAN INTEGER OF 8 OR 
R / I / D / CEMPTY] 
!= <TEXT LINE> / 

* SEQ <INTEGER> / 

* OK / 

* <CHANGE OPTlON> [SPACES] 

CSPACES] 



CSlASH] 
/ CEMPTY] 
DIGITS] 
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* <MODIFICATlON> ♦■* 

* <MOOIFICATIQN> <.* 
<MODlFICATlON> *•* 

80 OR LESS • 

* 

*. .._ * 

•SEMANTICS, * 

* THE CHANGE STATEMENT ALLOWS THE REMOTE USER TO MODIFY DATA RECORDS* 

• OR PROGRAM STATEMENTS SPECIFIED BY THE CHANGE NUMBERt WHEN THE * 

* CHANGE STATEMENT IS ENTERED MINI/TEXT WILL TYPE THE EXISTING * 

• LINE, PERFORM A CARRIAGE RETURN AND LINE FEED, AND RETYPE THE * 



<TEXT LINE> !:• 
<M0DIFICATI0N> 



CA LINE OF TEXT 

CHARACTERS] 
Ja [CORRECTED TEXT] 
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SEQUENCE NUMBER LEAVING THE REMOTE POSITIONED DIRECTLY BELOW THE * 
FIRST TILLABLE CHARACTER QF THE RECORD. SEVERAL CHANGE RESPONSES * 
ARE POSSIBLE. * 



IF THE USER TYPES A NEW TEXT lINE It WILL REPLACE THE CURRENT 
RECORD WITHOUT CHANGING THE SEQUENCE NUMBER OF THE LiNE, 

IF THE USER TYPES "* SEQ" FOLLOWED BY AN INTEGER THE SEQUENCE 
NUMBER OF A PROGRAM RECORD WIlL BE CHANGED TO THE INDICATED VALUE * 
WITHOUT AFFECTING THE REST OF THE RECORD, * 



IF THE USER TYPES "* 0K« THE EXISTING RECORD IS NOT CHANGED. 



THE USER MAY EDIT THE 
CHARACTERS WITH OTHER 
OR BY DELETING CHARAC 
PERFORM EDITING CDNSI 
A <CHANGE aPTlQN> TO 
ASTERISK TO INDICATE 
THE DESIRED MOOIFICAT 
EDITING RECORD, A <CH 
AN "I" INSERTION AND 
LEFT EMPTY AN "R" IS 
DESCRIBED BELOW AND E 



CURRENT TEXT LINE BY REPLACING EXISTING 
S* BY INSERTING NEW CHARACTERS INTO THE LINE 
TERS FROM THE LINE. THE <CHAnGE RESP0NSE> TO 
STS OF AN INITIAL ASTERISK FOLLOWED BY 
INDICATE THE TYPE OF EDITING^ A SECOND 
THE POSITION AT WHICH EDITING IS TO OCCUR* 
ION AND FINALLY A LEFT ARROW TERMINATING THE 
ANGF OPTION> OF ♦•R" INDICATES REPLACEMENT 
A "D" DELETION, IF THE <CHANGE 0PTI0N> IS 
ASSUMED. EACH OF THE CHANGE OPTIONS ARE 
XAMPlES given to illustrate THEIR USE. 



A, 



REPLACEMENT. 

AFTER TYPING THE LEADING ASTERISK AND THE <CHanGE QPTI0N> 

THE USER SHOULD SPACE THE TELETYPE OVER AND TYPE AN ASTERISK 

BELOW THE CHARACTER DIrECTLY PRECEDING THE CHARACTERS TO BE 

REPLACED. THE DEslRED MODIFICATION SHquLD THEN BE TYPED AND 

FOLLOWED BY A LEFT ARROW. tHE CHARACTERS BETWEEN THE SECOND 

ASTERISK AND THE LEFT ARROW WILL REPLACE THOSE IN THE ORIGINAL 

RECORD, 

EXAMPLES! 

*CHANGE A/DEMO 100«- 

0i00:0i23a5':t32l0 

OlOO:* R *6789*- 

0i00t0l234567890 
OlOOJ* *a321«- 



* 

* 
* 
* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 



B. 



INSERTION, 

AFTER TYPING THE LEADING ASTE 
THE USER SHOULD SPACE THE TEL 
BELOW THE CHARACTER DIRECTLY 
THE INSERTION IS TO OCCUR. TH 
THEN BE TYPED AND FOLLOWED BY 
BETWEEN THE SECOND ASTERISK A 
INTO THE EXISTING RECORD, IF# 
CHARACTERS* THE LENGTH OF THE 
RECORD LENGTH THEN THE RIGHT 
WILL BE LOST, NO INDICATION I 
OCCURS, 
EXAMPLES* 

*100«" 

0100:01234543210 

0100«* I *5«- 



RISK AND THE <CHANGE OPTION> * 

ETYPE OVER AND TYpE AN ASTERISK * 

PRECEDING THE POSITION AT WHICH * 

E CHARACTERS TO BE INSERTED SHOULD* 

A LEFT ARROW, THE CHARACTERS * 

ND THE LEFT ARROW WILL BE INSERTED* 

AS A RESULT OF INSERTING * 

LINE EXCEEDS THE MAXIMUM ALLOWED * 

MOST CHARACTERS OF THE LINE * 

S GIVEN TO THE USER IF THIS * 

* 

* 
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*ioo*- 

0lOO:0l23A55432l0 
0100J*QK* 

C, DELETION. 

AFTER TYPING THE LEADING ASTERISK AND THE <CHAnGE 0PTI0N> 
THE USER SHOULD SPACE THE TELETYPE OVER AND TYPE AN ASTER 
BELQW THE CHARACTER DIRECTLY PRECEDING THE CHARACTERS TO 
DELETED. THE TELETYPE SHOULD THEN BE SPACED OR TYPED OVER 
NUMBER OF CHARACTERS TO BE DELETED AND A LEFT ARROW TYPED 
THE NUMBER OF CHARACTERS BETWEEN THE SECOND ASTERISK AND 
LEFT ARROW WILL BE DELETED FROM THE EXISTING RECORD, 
EXAMPLES: 

0i0OJOl23455432l0 

OlOO»* * ♦• 

*ioo«- 

01001012345^3210 
0100J*D *OUT«- 
*100* 

0t00«0l233210 
OlOOJ*OK* 

THE FIRST THREE CHARACTERS OF A RECORD CAN NOT BE EDITED IN 
MANNER DESCRIBED ABOVE, In ORDER TO EDIT THESE CHARACTERS TH 
USER SHOULD INCLUDE THE <CHANGE OPTION> IN THE <CHANGE PARAM 
IF THE FIRST NON-BLANK CHARACTER Of THE <eHANGE RESPONSE> IS 
AN ASTERISK IT IS CONSIDERED AS THE SECOND ASTERISK AS 
DESCRIBED ABOVE AND INDICATES THE POSITION AT WHICH EDITING 
IP TO OCCUR. IF THE FIRST NON-BLAnK CHARACTER IS NOT AN ASTE 
THEN EDITING BEGINS AT THE FIRST CHARACTER POSITION OF THE 
RECORD. 

EXAMPLES! 

*100 «• 

0100J01233210 

OlOOJ *2332«- 

*100I«- 

OlOOlOllO 

OlOOJ lOOl* 

• IQO*- 

OlOO? lOOlOllO 

OiOO»*QK«- 

IF THE USER WISHES TO CHANGE A RECORD WITHOUT HAVING IT RETY 
A COLON SHOULD BE TYPED AFTER THE <CHANGE PARAMETERS>, THE 
CHARACTER FOLLOWING THE COLON IS CONSIDERED TO BE THE BEGINN 
THE <CHANGE" RESP0NSe>. 

TF A CHANGE IS ENTERED WHILE IN THE '♦ENTER" OR "RESUME" MODE 
THE USER NEED ONLY SUPPLY THE CHANGE NUMBER, 



TO EFFFCT A CHANGE 

MADE PERMANENT THE 

THE FILE NAME IN 

IF MULTIPLE CHANGES 

FIRST SHOULD CONTAIN THE CHANGE TYPE 



RECORD AFTER THE FILE HAS BEEN 
MUST ENTER THE TYPE OF CHANGE AND 

NUMBER, 

REQUIRED ONLY 



TO A 

USER MUST ENTER THE 
ADDITION TO THE CHANGE 
TO A PERMANENT FILE 
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AND FILE 



THE 



NAME, 
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00168000 
00169000 
00170000 
00171000 
00172000 
00173000 
00174000 
00175000 
00176000 
00177000 
00178000 
00179000 
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*COMP 

• SYNT 
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• SEMA 

* 
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* 
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* 

* 

* 
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ILF S 
AX. 
THE 

< 
< 

< 

< 



TATEMFNT. 
SYNTAX FOR <C0MPILE STATEMENtT> IS AS FOLLOW 



Si 



CGMPI 
COMPI 

PROGR 

COMPI 

COMPI 



LE ST 

LE PA 

AM NA 

LE SP 

LE OP 



ATEME 
RAMET 

ME> » 

ECIFI 

TI0N> 



NT> 
ERS> 

«s £7 

[7 
CATIO 



< 
< 
< 
< 
< 

KiTICS 
THE 
COM 
SPE 
TO 

THE 
IF 

PRO 
PRO 

AN 

INP 

THE 

SET 

MIN 

IS 

A N 
FOR 
FIL 

hav 

DiS 



COMPI 
PROGR 
INPUT 
NEW T 
COMPI 



LER> 
AM DI 
MEDI 
APE S 
LER P 



: ts A 
SPOSI 
A SPE 
PECIF 
HINT 



LGOL 

TION> 

CIFIE 

IER> 

FILE 



! = 



CH 

CH 

NS> 

< 

<co 

<PR 
<IN 
<NE 
<C0 
/ X 

t ! = 

R> 
J Ja 

DIS 



* COMPI 

<PROGR 

<PR06R 

ARACTER 

ARACTER 

I ! « <C 

COMPILE 

MPiLER> 

OGRAM 

PUT MED 

w Tape 

MPILER 
ALGOL / 

LIBRAR 
: :« TAP 

NEW TA 
POSITIO 



LE <C0MPI 
AM NAME> 
AM NAME> 

OR LESS 

OR LESS 
OMPILE OP 

SPECIFIC 

/ 
ISPDSITIO 
lA SPECIF 
SPECIFIER 
PRINT FIL 

BASIC / 
Y / GO / 
E / CARD 
PE / NEWT 
N> JJs PR 



ILE SPECIFICATIONS 
XJ [SLASH] 
X] 
/ 

S> <C0MPILE OPTION 



LE PARAMETERS> 
/ 

<comp 

PREFI 
SUFFI 
TI0N> 

ATION 



N> / 
IER> 
> / 

E DIS 
FORTR 
SYNTA 
/ CAR 
APE / 
INTER 



COMPILE STATEMENT IS DESIGNED TO AUTOMATICA 
PIlE AND COMPILER LABEL EQUATION CARDS FROM 
ClFlCATlONSi ONCE GENERATED THE CONTROL DECK 
BE RUN. 

COMPILER MAY BE EITHER "ALGOL"* "XALG0L'S"BA 
THE COMPILER IS NOT SPECIFIED THEN "ALGOL" I 

GRAM DISPOSITION MAY BE "LIBRARY"* "GO" OR " 
GRAM DISPOSITION RESULTS In A COMPILE TO THE 

INPUT MEDIA SPECIFIER QF "CARD" OR "CARDS" A 

UT TO BE A DISK FILE ESTABLISHED BY MINI/TEX 
PROGRAM HAS BEEN PREVIOUSLY COMPILED WITH A 
UP ON DISK, THE PATCH DECK MUST BE ON DISK* 

I/TEXT. IF THE INPUT MEDIA SPECIFIER IS EMPT 

ASSUMED. 

EW TAPE SPECIFIER CAUSES MINI/TEXT TO REQUES 

A NEW TAPE AND GENERATE A LABEL EQUATION CA 

E ON DISK. TO GENERATE A NEW TAPE IT IS ALSO 

E THE PROPER DOLLAR SIGN CARD IN THE COMPILE 



P0SITI0N> 
AN / [EMPTY] 
X / [EMPTY] 
DS / [EMPTY] 

[EMPTY] 

/ LIST / [EMPTY] 



LLY GENERATE 
THE COMPILE 
IS SCHEDULED 



SIC" OR "FORTRAN". 
S ASSUMED. 

SYNTAX", AN EMPTY 
LIBRARY, 

SSUMES COMPILER 
T. "TAPE" ASSUMES 
NEW TAPE BEING 
AS CREATED BY 
Y "CARD" 



T THE FILE NAME 
RD TO PUT THE 
NECESSARY TO 
R CARD FILE ON 




HETHER THE 

NE PRINTER OR 
"PRINTER" CAUSES 
IF THE COMPILER 

ST"* THE COMPILER 

LL INFORM THE USER 

GRAM LISTINGS 
REMOTE USING THE 
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* 
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* 
* 
* 

* 
* 

* 

* 
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* 
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268 
269 

270 
271 
272 
273 
274 
275 
276 
277 
27fl 
279 
280 
281 
282 
263 
284 
285 
266 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
30 3 
304 
305 
306 
307 
308 
309 
3J0 
311 
312 

313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 



00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 
00189000 
00190000 
00191000 
00192000 
00193000 
00194000 
00195000 
00196000 
00197000 
00198000 
00199000 
00200000 
OOgOlOOO 
00202000 
00203000 
00204000 
00205000 
00206000 
00207000 
00208000 
00209000 
00210000 
00211000 
00212000 
00213000 
00214000 
00215000 
00216000 
00217000 
00218000 
00219000 
00220000 
00221000 
00222000 
00223000 
00224000 

00225000 
00226000 

00227000 
00228000 
00229000 
00230000 
00231000 
00232000 
00233000 
00234000 
00235000 
00236000 
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*SYNTA 
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• 

■k 

* 

■k 

* 

*LIST 

*SYNTA 

*- 

* 

* 
* 

■k 
■k 

* 
* 

■k 



IF MINI/TEXT IS IN THE "ENTER"* "RESUME" OR "CHANGE" PROGRAM MODE 
WHEN THE COMPILE STATEMENT IS ENTERED* THE PROGRAM 



COMPILED WILL BE THE ONE NAMED IN 
WHEN NOT IN SUCH A MODE MINI/TEXT 
INPUT TO THE COMPILER, 



THE PREVIOUS 
WILL REQUEST 



SPECIFICATIONS. 
THE FILE NAME TO 



DL STATEMENT. 
X, 
THE SYNTAX FOR 

<CONTROL STA 
<CaNTRnL CAR 



<CONTROL STATEMENT> IS AS FOLLOWS? 



TEMENT> :S!» 
D OPTIONS> 



* CONTROL <• <CONTROL CARD 0PTI0NS> 
S= RUN / EXECUTE / COMPILE / FILE / 
PROCESS / 10 / PRIORITY / STACK /CORE 



TICS, 
THE, CONTROL STATEMENT ALLOWS A REMOTE USER TO ESTABLISH 
LEGITIMATE CONTROL CARD DECKS IN A PSUEDO CARD READER. 
THESE DECKS ARE PROCESSED 8Y THE MCP USING THE NORMAL 
SELECTION ALGORITHM, ALL CONTROL CARD OPTIONS* EXCLUDING 
"CHANGE" AND "REMOVE", ARC ALLOWED. CONTROL CARD INFORMATION 
MAY CONSIST OF ANY NUMBER OF LOGICAL RECORDS, A QUESTION MARK 
TS INSERTED BY MiNl/TEXT INTO THE FIRST CHARACTER OF EACH LOGICAL 
RECORD. IF A "CHANGE" OR "REMOVE" CONTROL CARD IS ENTERED THE 
ENTIRE DECK WILL BE DISCARDED AND THE REMOTE USER WILL BE 
NOTIFIED. THE DECK IS ASSUMED TO BE COMPLETED WHENEVER THE USER 
ENTERS "END" AS THE FIRST WORD OF A CONTROL CARD. IF THE USER 
WISHES TO DISCARD A CONTROL DECK BEFORE IT IS COMPLETED HE MAY 
00 SO BY ENTERING "REMOVE" AS THE FIRST WORD OF A CONTROL CARD. 



STATEMENT. 
THE SYNTAX FOR 

<LIST STATEM 
<LIST TYPE> 

<FILE NAME> 

<LIST RaNGE> 

<INITIAL SEQ 

<FINAL SEQUE 

<SEQUENCE NU 



<LIST STaTEMENT> IS AS FOLLOWS* 



ENT> : Ss * LIST 

! S= PROGRAM / 

FORTRAN / P 

t:s C7 CHARaCTE 

[7 CHARACTE 

»!- <INITIAL S 

<FINAL SEQ 

UENCE NUMBER> : 

NCE NUMBER> J!= 

M8ER> J la CAN I 



<LIST TYPE> <FILE NAME> <LIST 
ATa / ALGOL / XALGDL / BASIC / 
RINTER / PRINT / INFO / CEMPTY] 
R OR LESS PREFIX] [SLASH] 
R OR LESS SUFFIX] / CEMPTY] 
EQUENCE NUMBER> 
UENCE NUMBER> 

;= FROM <SEQUENCE NUMBER> / 
<SEQUENCE NUMBER> / CEMPTY] 
THRU <SEQUENCE NUMBER> / 
- <SEQUENCE NUMBER> / [EMPTY] 
NTEGER OF 8 OR LESS DIGITS] 



•SEMANTICS, 



* 

k 
k 
k 

k 
* 

* 

* 



THE LIST STATEMENT PROVIDES THE REMOTE USER THE 
LIST, ALL OR ANY PORTION, OF A PERMANENT FILE. 



ABILITY TO 



DATA IS TRANSMITTED IN A FORM ASSOCIATED WITH THE LIST TYPE. 
IRREGARDLESS OF LIST TYPE, INFORMATION IS OPTIMIZED TO DECREASE 
TYPEWRITER USAGE, ALL BLANKS* FOLLOWING THE LAST NON-BLANK 
CHARACTER* ARE DELETED. 



A LIST TYPE OF "PROGRAM" CAUSES SOURCE PROGRAM FILES* ON 
THE DISK, TO BE LISTED* "DATA" SPECIFIES THAT A DATA FILE 



* 

* 
* 
* 

* 
* 

* 
* 
* 

* 

* 
* 
* 

* 
* 



Range>* 

* 
* 
* 
* 

* 

* 
* 
* 

* 
* 
* 

* 
* 
* 

BE* 



IS TO 



325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
3A0 
341 
342 
343 
344 
345 
346 

347 
348 
349 
350 
351 
352 
353 
354 
355 
356 

357 
35fl 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 

370 
371 
372 

373 
374 
375 
376 
377 
378 
379 
380 
381 



00237000 

00238000 

00239000 

00240000 

00241000 

00242000 

00243000 

00244000 

00245000 

00246000 

00247000 

00248000 

00249000 

00250000 

00251000 

00252000 

00253000 

00254000 

00255000 

00256000 

00257000 

00258000 

00259000 

00260000 

00261000 

00262000 

00263000 

00264000 

00265000 

00266000 

00267000 

00268000 

00269000 

00270000 

00273000 

00274000 

00275000 

00276000 

00277000 

00278000 

00279000 

00280000 

09281000 

00282000 

00282100 

00283000 
00284000 
00285000 
00286000 
00287000 
00288000 
00289000 
00290000 
00291000 
00292000 
00293000 
00294000 
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• SYNT 

* 
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*SEMA 
* 

■k 

*re:mo. 

*SYNT 

4r 

* 

■k 
* 

* 

*5eMa 

k 

*FIND 

• SYNT 



LISTED. 'VALG0L'V"XALG01'V''BASIC" AND "FORTRAN" LIST TYPE REFER TO 
COMPILER PRINT FILES THAT HAVE BEEN LABELEQUATEO TO DISK. LABEL 
EQUATION INFORMATION MAY BE FURNISHED* AUTOMATICALLY* BY THE 
"COMPILE" STATEMENT OR DONE MANUALLY USING THE CONTROL STATEMENT, 
UPON COMPLETION OF LISTING COMPILER PRINT FILES THE ASSOCIATED 
DISK FILE IS AUTOMATICALLY REMOVEOt "PRINTER" OR "PRINT" REFER TO 
A PRINTER FILE ON DISK* BuiLT BY AN OBJECT PROGRAM, THIs TYPE OF 
FILE IS NEVER REFORMATTED. HOWEVER* TRAILING BLANKS ARE DELETED, 
A LIST TYPE OF INFO CAUSES A FILE ENTERED AS DATA TO BE 
LISTED WITHOUT SEQUENCE NUMBERS, IF A LIST TYPE IS NOT 
SPECIFIED "PROGRAM" IS ASSUMED. 

IF A FILE NAME IS NOT SPECIFIED THE CURRENT FILE NAME* AS GIVEN 
In the LAST ENTERS RESUME, CHANGE, LIST* COPY OR SEQUENCE 
STATEMENT IS ASSUMED, IN ADDITION, AFTER A "COMPILE" STATEMENT 
WHICH CREATED A COMPILER PRINT FIlE ON DISK* A LiST STATEMENT 
WILL ASSUME THE NAME ASSIGNED BY MiNI/TEXT TO THE PRINTER FILE 
IF NO OTHER FILE NAME IS SPECIFIED. 

A LIST RANGE SPECIFIES THAT ONLY A PORTION OF THE DESIGNATED FILE 
Is TO BE LISTED, ONE RECORD OR A COMPLETE RANGE OF RECORDS MAY 
BE SPECIFIED. IN THE ABSENCE OF A LIST RANGE THE ENTIRE FILE 
IS TRANSMITTED. 



IF THE USER WISHES TO TERMINATE A 
NORMAL COMPLETION HE MAY DO SO BY 
ON HIS REMOTE CONSOLE, 



TRANSMISSION BEFORE ITS 
DEPRESSING THE BREAK KEY 



ME STATEMENT. 
AX, 

THE SYNTAX FOR 



<RENAME STATEMENT> IS AS FOLLOWS} 



<RENAME STATEMENT> !S= * RENAME <RENAME LIST> 
<RENAME LIST> J 5= <FILE NAME> TO <FILE NAME> / 

<RENAME LIST> * <FILE NAME> TO <FILE 
<FILE NAME> s:= C7 CHARACTER OR LESS PREFIX] [SLASH] 

C7 CHARACTER OR LESS SUFFIX] 



NAME> 



NTICS. 

PERMANENT FILES, ESTABLISHED 
CREATED BY THE USER WILL NOT 



BY THE USER* ARE RENAMEOt FILES NOT 
BE AFFECTED BY THIS STATEMENT. 



VE STATEMENT, 
AX, 

THE SYNTAX FOR 



<REMOVE STaTEMENT> IS AS FOLLOWS! 



<REMOVE STATEMENT> ::* * REMOVE 
<REM0VE LIST> :;= <FILE NAME> / 
<FILE NAME> 8»= C7 CHARACTER OR 

[7 CHARACTER OR 
NTICS. 

FILES, ESTABLISHED BY THE USER* ARE REMOVED 
LIBRARY, IF THE FILE WAS NOt CREATED BY THE 
STATEMENT IS DISCARDED. 

STATEMENT, 
AX, 



<REMOVE LIST> 

<REMOVE LIST> * <FlLE NAME> 

LESS PREFIX] tSLASH] 

LESS SUFFIX] 



FROM 
USER 



THE DISK 
THIS 
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00295000 
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383 


00296000 
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384 


00297000 
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385 


00298000 
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386 


00299000 


) * 


387 


00300000 


* 


388 


00301000 


* 


389 


00302000 
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390 


00302100 


* 


391 


00302200 


* 


392 


00303000 


* 


393 


00304000 


* 


394 


00304100 


* 


395 


00304200 


* 


396 


00304300 


* 


397 


00304400 


* 


398 


00304500 


k 


399 


00304600 


• 


400 


00304700 


1> 


401 


00305000 


* 


402 


00306000 


* 


403 


00307000 


* 


404 


00308000 


* 


405 


00309000 


* 


406 


00310000 


* 


407 


00311000 


* 


408 


00312000 


* 


409 


00313000 


* 


410 


00314000 


* 


411 


00315000 


* 


412 


00316000 


* 


413 


00317000 


* 


414 


00318000 


* 


415 


00319000 


* 


416 


00320000 


* 


417 


00321000 


* 


418 


00322000 


* 


419 


00323000 


* 


420 


00324000 


* 


421 


00325000 


■k 


422 


00326000 


* 


423 


00327000 


Hr 


424 


00328000 


* 


425 


00329000 


* 


426 


00330000 


* 


427 


00331000 


* 


428 


00332000 


* 


429 


00333000 


* 


430 


00334000 


* 


431 


00335000 


* 


432 


00336000 


* 


433 


00337000 


,. .^ .. 


434 


00338000 


* 


435 


00339000 
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436 


00340000 
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437 


00340010 


* 


438 


00340020 
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THE SYNTAX FOR <FIND STATEMENT> IS AS FOLLOWS! 

<FIND STATEMENT> Ms * FIND <FIRST OPTION> <STRlNG> 

IN <FILE NAME> <FIND RANGE> 
<FIrST 0PTI0N> j:= first / ALL / CEMPTY] 

<STRlNG> : 



<IDENTIFIER> 



<LETTER> J»= 



<IDENTIFIER> / <INTEGER> / 

<QUQTED STRING> / <OCTAL STRING> 

MS <LETTER> / <IDENTIFIER> <LETTER> 

<IDENTIFIER> <DIGIT> * 

A/B/C/0/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z* 
<DIGIT> »?= 0/1/2/3/4/5/6/7/8/9 * 

<INTEGFR> ;js <nlGlT> / <INTEGER> <DI6IT> * 

<0U0TED STRING> ::a <OELlMlTER> tLEQ 31 CHARACTERS] <DELlMlTER> * 
<DELIMITER> S!- " / # 

<OCTAL STRING> J:s 3" <OCTAL NUMBER> " 

<OCTAL NUM8ER> :J= <OcTAL DI6IT> / <OCTAL NUMBER> <OCTAL DlGIT> 
<OCTAL DIGIT> i:^ 0/1/2/3/4/5/6/7 
<FILE NAME> •* : = C7 CHARACTER OR LESS PREFIX] 

[7 CHARACTER OR LESS SUFFIX] 
<FIND RANGE> JJ= <INITIAL SEQUENCE NUMBER> 

<FINAL SEQUENCE NUMBER> 
<INITIAL SEQUENCE NUM8ER> Us <nUMBER> / FROM <NUMBER> / 
<FINAL SEQUENCE NUMBER> Jt= - <NUMRER> / THRU <NUMB£R> / 
<NUMBER> !«= TAN INTEGER OF 8 OR LESS DIGITS] 



tSLASHJ 
/ CEMPTY] 



* 



CEMPTY]* 

CEMPTY]* 

* 



ANTICS, 

THE FIND STATEMENT GIVES THE USER THE CAPABILITY TO SEARCH A 
PROGRAM FILE FOR OCCURANCES OF A SPECIFIED IDENTIFIER* INTEGER 
OR SEQUENCE OF CHARACTERS, THE SEQUENCE NUMBER OF EACH RECORD 
THAT INCLUDES THE QUANTITY IS TYPED ON THE USERS CONSOLE. IF 
THE USER DESIRES TO TERMINATE A FIND STATEMENT BEFORE ITS 
NORMAL COMPLETION HE MAY DO SO BY DEPRESSING THE BREAK KEY 
Om HIS CONSOLE. 

THE <FIRST aPTION> ALLOWS THE USER TO INDICATE THAT EITHER THE 
FIRST OR ALL OCCURANCES QF THE SPECIFIED <STRING> ARE TO BE 
SERACHED FOR. IF THE OPTION IS EMPTY THEN "ALL" IS ASSUMED. 

SEVERAL METHODS FOR SPECIFYING THE <STRlNG> ARE PROVIDED, THEY 
ARE DESCRIBED SEPERATELY BElOW. EXAMPLES QF EACH TYPE ARE GIVEN. 



THE <IDENTIFIER> TYPE OF 
AN ALGOL IDENTIFIER WITH 
LENGTH IS 13 CHARACTERS. 
EXAMPLES! 

INTEGER LlOl 



<STRING> IS ESSENTIALLY THE SAME AS 
THE RESTRICTION THAT ITS MAXIMUM 



AN <INTEGER> IS 
123456789012. 



PROCEDURE GMAXQQQ, 
A SEQUENCE OF UP TO 12 DIGITS SUCH AS» 



A <QUOTED STRING> IS A SEQUENCE OF UP TO 31 CHARACTERS 
ENCLOSED BY <OEL IMITER>S. THE SAME <DELIMITER> MUST BE USED 
AT THE BEGINNING AND END OF THE QUOTED STRING. THE FIRST 
CHARACTER OF A QUOTED STRING MUST NOT BE A BLANK 
CHARACTER, 
EXAMPLES: 

"NOTLISTINGORCOPYSEQING" "^^ #»# 
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439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

456 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 
477 
478 
479 
480 
481 
482 
483 
484 

485 
486 

487 
488 
489 
490 
491 
492 
493 
494 
495 



00340030 
0Q340040 
00340050 
00340060 
00340070 
00340080 
00340090 
00340100 
00340110 
00340120 
00340130 
00340140 

00340150 
00340155 

00340160 
00340170 
00340180 
00340190 
00340200 
00340210 
00340220 
00340230 
00340240 
00340250 

00340260 
00340270 
00340280 
00340290 
00340300 
00340310 
00340320 
00340330 
00340340 
00340350 
00340360 
00340370 
00340380 
00340390 
00340400 
00340410 
00340420 
00340430 
0G340440 
00340450 
00340460 
00340470 
00340480 
00340490 
00340500 
00340510 
00340520 
00340530 
00340540 
00340550 
00340560 
00340570 
00340580 
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#Q="1*0000"# 



"START»=?START + l,57" 



D. AN <OCTAL STRING> IS A SEQUENCE OF AN EVEN NUMBER OF OCTAL 
DIGITS ENCLOSED BY QUOTES WITH A DIGIT 3 DIRECTLY PRECEDING 
THE INITIAL QUOTE. THE NUMBER OF OCTAL DIGITS MUST BE 62 OR 
LESS. THE PURPOSE OF THE <aCTAL STRING> TYPE OF <STRING> IS 
ALLOW THE USER TO SPECIFY CHARACTERS SUCH AS «•# <* S ETC, 
WHICH CANNOT BE OIRECTL^ ENTERED FROM THE CONSOLE. 
EXAMPLES: 

3" 14" 

3"3l604 3A66525606 35l3l23 3l2l", 

THE <FILE NAME> SPECIFIES THE PROGRAM FILE IN WHICH TO PERFORM 
THE SEARCH. IF A FILE NAME IS NOT Sp^ClFlEO THEN THE CURRENT 
FILE NAME AS GIVEN IN THE LAST STATEMENT WHICH SPECITIED A FIlE 
WILL BE ASSUMED, 



TO 



THE <FIND RANGE> ALLOWS THE USER TO SPECIFY THE 
THE FILE THAT IS TO BE SEARCHED. IF NO RANGE IS 
All RECORDS IN THE FIlE WILL BE SEARCHED. 



portion of 
Indicated then 



♦REPLACE statement. 
♦SYNTAX. 



THE SYNTAX FOR <REPLACE STATEMENT> IS AS FOLLOWSJ 



<REPLACE STATEMENT> Us. 
* REPLACE <FIRST 

IN <FILE NAME> 
<FIRST 0PTI0N> J;= FIRST 
<STRlNG> !i 



<DELIMITER> 



<I0ENTIFIER> 

<LETTER> :»= 

<DIGIT> :Js 0/1/2/3/4/5/6/7/8/9 
<INTEGER> !S= <DIGIT> / <INTEGER> <0IGIT> 
<QUOTED STRING< :sa <DElIMITER> CLEQ 31 CHARACTERS] 
<DELIMITER> »:«♦♦/# 

<OCTAL STRING> t;= 3- <OCTAL NUmBER> " 

<OCTAL NUMBER> 8 ? "s <OCTAL 0IGIT> / <OCTAL NUM8ER> <OCTAL 0IGIT> 
<OCTAL DIGIT> SSa 0/1/2/3/4/5/6/7 
<FILE NAME> !i« 17 CHARACTER OR LESS PREFIX] 

C7 CHARACTER OR LESS SUFFIX] 
<REPLACE RANGE> !i= LINE <NUMBER> / 

... <INITIAL SEQUENCE NUMBER> <FlNAL SEQUENCE NUMBER> / 
<INITIAL SEQUENCE NUMBER> Ms <nUMBER> / FROM <NUM8ER> 

<NUM8ER> / THRU <NUMBER> 

OR LESS DIGITS] 



* 

* 
* 
* 
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* 
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* 

* 
* 

* 

* 
* 

* 

* 
* 
* 



* 

♦ 
* 

* 
* 

■k 

* 

♦ 

* 

♦ * 

♦SEMANTICS, * 

♦ THE REPLACE STATEMENT GIVES THE USER THE CAPABILITY OF REPLACING * 

♦ OCCURANCES OF A SPECIFIED IDENTIFIER* INTEGER OR SEQUENCE OF * 

♦ CHARACTERS IN A PROGRAM FILE WITH ANOTHER STRING, THE CHARACTERS * 

♦ WITHIN A RECORD IN WHICH REPLACEMENTS OCCUR ARE ADJUSTED TO ♦ 

♦ ACCOMODATE THE NEW STRING IF ITS LENGTH IS DIFFERENT FROM THAT * 

♦ OF THE ORIGINAL STRING, Iff DUE TO AN ADJUSTMENT* CHARACTERS * 



OPTION> <STRIN6> BY <STRING> 

<REPLACE RANGE> 

/ ALL / [EMPTY] 
<IDEnTIFIER> / <INTEGER> / 
<QUOTED STRING> / <OCTAL STRING> 
5J= <LETTER> / <IOENTIFI£R> <LETTER> / 

<I0ENTIFIER> <DI6IT> 
A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z* 

* 
* 

♦ 
* 
* 
* 

♦ 



CSLASH] 
/ tEMPTYl 



[EMPTY] 



<FINAL SEQUENCE NUMBER> ?:= - 
.<NUM.BER> S»= CAN. INTEGER OF 8 



/ 

/ 



[EMPTY]* 

[EMPTY]* 

* 



496 
497 
498 
«99 
500 
501 
502 
503 
504 

505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 

521 
522 

523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
536 
539 
540 
541 
542 
543 
544 
545 

546 
547 

548 
549 

550 
551 
552 



00340590 

00340600 

0©340610 

00340620 

00340630 

00340640 

0©340650 

00340660 

00340670 

00340680 

00340690 

00340700 

OO34O71O 

00340720 

00340730 

00340740 

00340750 

00340760 

00340770 

00340780 

00340790 

00340800 

00340810 

00340820 

00340830 

00340840 

00340850 

00340860 

00340870 

00340880 

00340890 

00340900 

00340910 

00340920 

00340930 

00340940 

00340950 

00340960 

00340965 

00340970 

00340980 

00340990 

00341000 

00341010 

00341020 

00341030 

00341040 

00341050 

00341060 

00341070 

00341080 

00341090 

O034U00 

00341110 

00341120 
00341130 
00 341140 



• 

m 

• 



# 






• 









ilr 

* 

* 

* 

* 
* 
* 

* 
* 

* 
* 



WOULD BE LOST THE REPLACE STATEMENT IS TERMINATED AND AN 
ERROR MESSAGE INCLUDING THE SEQUENCE NUMBER OF THE RECORD 
WHICH WOULD OVERFLOW IS EMITTED, 

THE <FIRST OPTlnN> ALLOWS THE USER TO INDICATE THAT EITHER 
THE FIRST OR ALL OCCURANCES OF THE SPECIFIED STRING ARE TO BE 
REPLACED. IF THE OPTION IS LEFT EMPTY THEN •♦ALL" IS ASSUMED. 

SEVERAL METHODS OF SPECIFYING THE STRINGS ARE PROVIDED. 

THEY ARE DESCHlBED AND EXAMPLES OF EACH TYPE ARE GIVEN IN THE 

DESCRIPTION OF THE FIND STATEMENT. 

THE <FILE NAME> SPECIFIES THE PROGRAM FILE IN WHICH TO PERFORM 
THE REPLACEMENTS. IF A FIlE NAME IS NOT SPECIFIED THEN THE 
CURRENT FILE NAME AS GIVEN IN THE LAST STATEMENT WHICH SPECIFIED 
A FILE NAME IS ASSUMED. 



THE <REPLACE HAnGE> ALLOWS THE USER TO SPECIFY THE PORTION 
OF THE FILE I ^^ WHICH REPLACEMENT IS TO OCCUR. IF A "LINE" 
NUMBER IS SPECIFIED ONLY THAT RECORD WILL BE AFFECTED. IF 
<REPLACE RANGE> IS INDICATED REPLACEMENT MAY OCCUR IN 
RECORDS OF THE FILE. 



ALL 



NO 



• sf.quence 

*SYNTAX, 



* 

* 

* 
* 

■k 

* 
* 
* 



* 



■k 
* 
* 



STATEMENT, 
THE SYNTAX FOR <SEQUENCE STATEMENT> IS AS FOLUOWSj 
<SEQUENCE STATEMENT> 



VERB> <PROGRAM SPECIFIER> 
<SEQUENCE RANGE> 



Its * <SEQUENCE 

<file name> 

<sequence specifications> 

<SEqUENCE VERB> ::= SEQUENCE / RESEQ 

<PRnGRAM SPECIFIER> :}= PROGRAM / [EMPTY] 

<FILE NAME> :s= 17 CHARACTER OR LESS PREFIX3 [SlASH] 

17 CHARACTER OR LESS SUFFIX] / tEMPTY] 
<SFQUENCE RANGE> :j= <IMTIAL SEQUENCE NUMBER> 

<FINAL SEQUENCE NUMBER> 
<INITIAL SEQUENCE NUMBER> :i= FROM <SEQUENCE NUMBER> / 

<SeQUENCE NUMBER> / [EMPTY] 
<FINAL SEQUENCE NUM8ER> H- THRU <SEQUENCE NUM8ER> / 

- <SEQUENCE NUMBER> / CEMPTY] 
INTEGER OF 8 OR LESS DIGITS] 
!:= <BASE SPECIFIER> <STEP SPECIFIER> 
<NUMBER> / <NUMBER> / tEMPTY] 
<NUMBER> / + <NUMeER> / tEMPTY] 
OF 8 OR LESS DIGITS] 



<SEOUENcE NUM8ER> :»= CAN 
<SEQUENCE SPECIFICATI0NS> 
<8ASE SP£CIFIER> {t= BASE 
<STfP specifier> ::a STeP 
<NUM8ER> :»= CAN INTEGER 



♦SEMANTICS. 

* THE SEQUENCE STATEMENT ALLOWS THE USER TO RESEQUENCE SOURCE 

* PROGRAM FILES. IF A SEQUENCE RANGE IS PRESENT ONLY THE SPECIFIED 

* RANGE OF SEQUENCE NUMBERS CAS THEY APPEAR IN THE ORIGINAL FILE^ 

* WILL BE RESEQUENCEO. SEQUENCE SPECIFICATIONS GIVE THE BASE NUMBER 

* AND INCREMENT VALUE TO BE USED IN RESEQUENCiNG THE FILE. IF A 

* BASE NUMBER IS NOT SPECIFIED ZERO IS ASSUMED. IF AN INCREMENT 

* VALUE IS NOT GIVEN A VALUE OF 10 iS USED. 
* 

*COPY STATEMENT, 
•SYNTAX, 



* 

* 
* 

* 

* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 

* 

* 

* 
* 

* 
* 

* 

* 

* 
* 

* 
* 
* 

* 

■* 

* 
* 

* 
* 

* 



553 
55« 
555 
556 
557 
556 
559 
560 
561 
562 
563 
56/1 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58« 
585 
586 
587 
588 
589 
590 
591 

592 

593 

594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
60/1 
605 
606 
607 
608 
609 



00341150 

0034U60 

00341170 

00341180 

00341190 

00341200 

00341210 

00341220 

00341230 

00341240 

00341250 

00341260 

00341270 

00341280 

00341290 

00341300 

00341310 

00341320 

00341330 

00341340 

00341350 

00341360 

00341370 

00341380 

00342000 

00343000 

00344000 

00345000 

00346000 

00347000 

00347100 

00348000 

00349000 

00350000 

00351000 

00352000 

00353000 

00354000 

00355000 

00355100 

00355200 

00356000 

0Q357000 

00357100 

00358000 

00359000 

00360000 

00361000 

00362000 

00363000 

00364000 

00365000 

00 366000 

00367000 

00368000 

00369000 

00370000 



i 

i 



• 
• 



# 



• 






* 
* 
* 



* 

* 

• 

* 
* 

* 
* 
* 



The syntax F0« <C0PY STATeMENT> IS AS FOUUOWS: 

<coPY state:ment> a 



* 

* copy <program specifier> <s0urce f1l£> * 

<copy range> tq <ado on specifier> * 

<destination file> <sequence specifications>* 



tSLASH] 



number> / 



<PRnGRAM SPECIFIER> ::= PROGRAM / [EMPTY] 
<SOURCE FI|_E> :!= <FILE NAME> / tEMPTY3 
<DESTINATI0N FILE> :S= <FILE NAME> 
<FILE NAME> »:= C7 CHARACTER OR LESS PREFIX] 

[7 CHARACTER OR LESS SUFFIXl 
<CGPY RANGE> ',:=: <INITIAL SEQUENCE NUMBER> 

<FINAL SEQUENCE NuMBER> 
<INITIAL SEQUENCE NUMBER> Ms FROM <SEQUENCE 

<SEOUENCE NUMBER> / CEMPTY] 
THRU <SEQUENCE NUM8ER> / 
- <SEQUENCE NUMBER> / CEMPTY] 
<SEQUENCE NUMBER> !:= CAN INTEGER OF 6 OR LESS DIGITS] 
<ADO ON SPECIFIER> 5!= END / CEMPTY] 

<SEOUENCE SPECIFICATI0NS> !j= <BASE SPECIFIER> <STEP 3PECIFIER> 
<BA5E SPECIFIER> J:* BASE <NUMBER> / <NUMBER> / [EMPTY] 

«:= STEP <NUMBER> / + <NUM8ER> / CEMPTY] 
INTEGER OF 8 OR LESS DIGITS] 



<FINAL SEQUENCE NUMBER> «:* 



<STEP SPECIFIER> 
<NUMBER> SSs CAN 



•SEMANTICS, 



* 

* 
* 

* 



THE 



THE COPY STATEMENT ALLOWS THE REMOTE USER TO DUPLICATE SOURCE 
PROGRAM FILES. IF A COPY RANGE IS PRESENT ONLY THE SPECIFIED 
RANGE iF CARD ImAGEs CAS SPECIFIED BY THe SEQUENCE NUMBERS IN 

Original file) will be copied to the new file, if an add on 

SPECIFIER is PRESENT IT INDICATES THAT THE FOLLOWING FILE NAME 
is an EXISTING FILE AND THE CARD IMAGES FROM THE ORIGINAL FILE 
ARE TO BE ADDED ON TO THE END OF IT, IF A SEQUENCE SPECIFICATION 
Is PRESENT THE NEW FILE WILL BE RESEQUENCED AS IT IS GENERATED, 
IF A SEQUENCE SPECIFICATION IS NOT USED THE SEQUENCE NUMBERS OF 
The new FILE WILL BE THE SAME AS IN THE ORIGINAL FILE. 



• SEQUEh'CE 
*SYNTAX, 



SPECIFICATION STATEMENT, 



THE SYNTAX FOR <SEQUENCE SPECIFICATION STATEMENT> IS AS FOLLOWS; 
<SEQUENCE SPECIFICATION STATEMEnT> SS» 

* seq <sequEnce parameters> / 

* seq <sequence parameters> } <text line> 
<sequence parameters> jj= <base specifier> <step specifier> 

<BASE SPECIFIER> M* BASE <NUMBER> / <NUMBER> / [EMPTY] 
<STEP SPECIFIER> tJa STEP <NUMBER> / + <NUMBER> / CEMPTY] 
<NUMBER> JS= [AN INTEGER OF 8 OR LESS DIGITS] 
<TEXT LINE> !S= [A LINE OF TEXT CONSISTING OF 80 OR LESS 

CHARACTERS] 



A REMOTE USER TO 



* 
* 

* 
* 

* 
* 

♦SEMANTICS, 

* THE SEQUENCE SPECIFICATION STATEMENT ENABLES 

* SPECIFY THE BASE NUMBER AND INCREMENT VALUE 

* USED IN CALCULATING THE SEQUENCE NUMBERS ASSIGNED TO 

* STATEMENTS, IF A SEQUENCE SPECIFICATION STATEMENT IS 

* SEQUENCE NUMBERS BEGINNING WITH ZERO AND STEPPING IN 

* INCREMENTS OF TEN ARE ASSUMED. ONCE THE SEQUENCE SPECIFICATIONS 

* ARE SET THEY WILL BE USED FOR THE REMAINDER OF A SESSION OR 



PROGRAM 

NOT USED 



* 
* 
* 
* 

* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 

* 

* 

* 
* 
* 

* 

* 
* 

* 

* 
* 



610 
611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 



00371000 

00372000 

00373000 

00374000 

00375000 

00376000 

00376100 

00376200 

00377000 

00378000 

00379000 

00380000 

00381000 

00382000 

00382100 

00382200 

00383000 

00384000 

00385000 

00386000 

0I3S6100 

00387000 

00388000 

00389000 

00390000 

00391000 

00392000 

00393000 

00394000 

00395000 

00396000 

00397000 

00398000 

00399000 

00400000 

00401000 

00402000 

00403000 

00404000 

00405000 

00405100 

00406000 

00407000 

00409000 

00410000 

00413000 

00413100 

00413200 

00414000 

00415000 

00416000 

00417000 

00418000 

00419000 

00420000 

00421000 

00422000 



i 

• 
• 

m 



m 

m 
m 



m 



# 



^ > 












UNTIL CHANGED BY ANOTHER SEQUENCE SPECIFICATION STATEMENT, 

A TEXT LINE MAY BE ENTERED IN A SEQUENCE SPECIFICATION 
STATEMENT BY TYPING A COLON FOLLOWED BY THE TEXT LINE 
AFTER THE SEQUENCE PARAMETERS. 



*TAfi STATEMENT, 
•SYNTAX. 



•k 

* 
* 

* 

■k 



THE SYNTAX FOR <TA8 STATEMENT> IS AS fOLlOWS! 

<TA8 STATEMENT> ::= * TAB <TAB PARAMETERS> / 

* TAB <TAB PARAMETERS> J <TEXT LINE> 
<TAB PARAMETERS> i:e <COLUMN NUM8ER> / <TAB A0JUSTMENT> 
<COLUMN NUMBER> :s= CAN INTEGER FROM 1 TO 323 
<TAB AOJUSTMENT> j:= ♦ <DI SPLACEMENT> / - <0l SPLACEMENT> 
<0ISPLACEMENT> ;:= CAN INTEGER LESS THAN 323 
<TEXT LINE> JJ= CA LINE OF TEXT CONSISTING OF 80 OR LESS 

CHARACTERS] 



♦SEMANTICS. 



the tab statement allows the user to automatically pre-posit 
the print head at any column. the tab statement has an effec 

in the "enter** or "resume" mode, a tab adjustment may be use 
Increase or decrease the <column number>, if the <column num 

IS SET OR adjusted TO A VALUE GREATER THAN 32 OR LESS THAN 1 
will be SET TO 1, A TEXT lINE MAY BE ENTERED IN A TAB STATEM 
TYPING A COLON FOLLOWED BY THE TEXT LINE AFTER THE TAB FARAM 



* 

* 
* 

* 

♦ASTERISK OPTION CONTROL STATEMENT. 
♦SYNTAX, 

♦ THE SYNTAX FOR <ASTERISK OPTION CONTROL STATEmENT> IS AS FOL 
* 

♦ <ASTERISK OPTION CONTROL STATEMENT> S 5 s» * * / 

♦ * * { <TEXT LINE> 

♦ <TEXT LINE> ''''= tA LINE OF TEXT CONSISTING OF 80 OR LESS 

♦ CHARACTERS] 
* 

♦Semantics, 

♦ the asterisk option control statement provides the means for 

♦ setting or resetting a program option which determines if a 

♦ leading asterisk is required to indicate a minl/text command 

♦ when set* all commands -must- contain a leading asterisk, 

* 

♦ WHEN RESET* THE LEADING ASTERISK IS -OPTIONAL"* 



* 

* 
* 

* 
* 



EACH TIME AN ASTERISK OPTION CONTROL STATEMENT IS ENTERED 
THE SETTING OF THE OPTION IS CHANGED FROM ITS CURRENT TO ITS 
OPPOSITE STATE, 

A TEXT LINE MAY BE ENTERED IN AN ASTERISK OPTION CONTROL 
STATEMENT BY TYPING A COLON FOLLOWED BY THE TEXT LINE 
AFTER THE CONTROL STATEMENT. 

WHEN A USER INITIATES THE MINI/TEXT PROGRAM THE ASTERISK 
OPTION IS RESET, 





* 


667 


00423000 




* 


668 


00423100 




* 


669 


00423200 




* 


670 


00423300 




* 


67t 


00423400 




• 


672 


00424000 




* 


67 3 


00424100 




* 


674 


00424200 




* 


675 


00424300 




* 


676 


00424400 




* 


677 


00424500 




* 


678 


00424600 




* 


679 


00424700 




* 


680 


00424800 




* 


661 


00424900 




* 


682 


00425000 




* 


683 


00425100 




* 


68A 


00425200 




* 


685 


00425300 




* 


686 


00425400 


ION 


* 


687 


00425500 


T ONLY^ 


688 


00425600 


D TO 


♦ 


689 


00425700 


BER> 


'•* 


690 


00425800 


IT 


♦ 


691 


00425900 


ENT BY* 


692 


00426000 


ETERS 


»* 


693 


00426100 




* 


69/t 


00426110 




* 


695 


00426120 




* 


696 


00426130 


LOWSs 


* 


697 


00426140 




* 


698 


00426150 




* 


699 


00426160 




* 


700 


00426162 




* 


701 


00426164 




* 


702 


00426166 




* 


703 


00426170 
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70a 


0©426l80 




* 


705 


00426190 




* 


706 


00426200 


, 


* 


707 


00426210 




* 


708 


00426220 




* 


709 


00426230 




* 


710 


00426240 




* 


711 


00426250 




* 


712 


00426260 




* 


713 


00426270 




* 


7H 


06426280 




* 


715 


00426290 
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716 


00426300 
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717 


00426302 




• 


718 


00426304 




* 


719 


00426306 




* 


720 


00426308 




* 


721 


00426310 




* 


722 


00426320 




* 


723 


00427000 



• 

• 

• 



HI 
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• 






♦CHARGE CODE STATEMENT 
•SYNTAX, 

* THE SYNTAX FOR 

* <CHARGE CODE 

* <CHARGE NUMBE 

* <CaMMFNT> 5!= 

* 

•SEMANTICS. 

* THE CHARGE CODE 

* THE JOB ORDER N 

* SPECIFIED IS US 

* THE LOS WHEN TH 

* STATEMENT IS AU 

* WHEN THE CHARGE 

* THREE OPPORTUNi 

* NUMBER Is RECEI 

* THE USER, A 15 

* PHONE EXTENSION 
* 

•LOCK STATEMENT. 
•SYNTAX, 

* THE SYNTAX 
* 

* <LOCK STATEK!E 

* <LOCK VERB> i 

* <SAVE TrME> I 
* 



<CHARGE CODE STATEMENT> IS AS FOLLOWS? 



STATEMENT> 
R> ! := lA V 

CANY 15 CH 



: J= * CHARGE 
ALID 9 DIGIT 
ARACTERS NOT 



<CHARGE NUMBER> <C 
JOB ORDER NUMBER] 
INCLUDING ",'♦ OR " 



STATE 

UMBER 
ED IN 
E USER 
TOMATI 

CODE 
TIES T 
VED MI 
CHARaC 

SHOUL 



MENT 
USED 
ALL C 
ENTE 
CALLY 
STATE 
ENT 
NI/TE 
TER C 
n PE 



ALLOWS 
BY MiN 
OMPILE 
RS A Q 
EXECU 
MENT I 
ER A V 
XT ^ll 
OMMENT 
ENTERE 



THE 
I/TEX 

STAT 
UIT S 
TED W 
S EXE 
AlID 
L PRO 

INCL 

d aft 



USER 

T, TH 

EMENT 

TATEM 

HEN A 

CUTED 

CHARG 

CESS 

UDING 

ER TH 



TO SPECI 

E CHARGE 

S AND IS 

ENT, A C 

USER RU 

THE USE 

E NUMBER 

A QUIT S 

THE USE 

E CHARGE 



FY OR C 

NUMBER 
RECORD 
HARGE C 
NS MINI 
R IS GI 
. IF NO 
TATEMEN 
RS NAME 
NUMBER 



ommEnt 

*«] 

HANGE 

ED IN 
ODE 

/TEXT, 
VEN 

VALID 
T FOR 

AND 



FOR <LOCK STATEMENT> IS AS FOLLOWSt 



NT> ::= * < 
!s LOCK / S 

:a CAN INTE 



LOCK VERB> <SAVE TIME> 

AVE / CLOSE 

GER EQUAL TO 90 OR LESSX / CEMP 



TY3 



*SE 
* 

* 
* 

* 
*QU 

*SY 

* 

*se 

* 
* 

*; 

*co 

* 
* 

■ft' 

llr 

*; 



MANTlcS, 

THE LOCK STATEMENT CLOSES 
CURRENT FILE STATUS IN THE 
ALLOWS THE USER TO SPECIFY 
TO BE HELD ON DISK AFTER T 
IF NO SAVE TIME IS SPECIFI 
VALUE OF 30 DAYS IS ASSUME 
MINI/TEXT TO GO OUT OF THE 
AFTER ENTERING THE LOCK ST 
FILE NAME IN SUCCEEDING CO 
NAME BY LEAVING THE <FILE 

IT STATEMENT. 
NTAX, 

THE SYNTAX FOR <QUIT STATE 



<QUIT STATEMENT> 
M ANTICS, 



i is 



Q 



THE QUIT STATEMENT CAUSES 
AnY FILES THAT WERE In THE 
ARE MADE PERMANENTt 



THE OPEN FILE AND RECORDS THE 
DISK DIRECTORY. THE <SAVE TIME 
THE NUMBER OF DAYS THE FILE IS 

HE DATE OF ITS LAST ACCESS. 

ED THEN A DEFAULT 

D. THE LOCK STATEMENT WILL CAUS 
ENTER* RESUME OR CHANGE MODE, 

ATEMENT THE USER MAY SPECIFY A 

MMANDS OR CONTINUE TO USE THE C 

NAME> EMPTY. 



MENT> IS AS FOLLOWS: 
UIT / * BYE 



MINI/TEXT TO GO TO END OF JOB, 
PROCESS OF BEING CONSTRUCTED 



NEW 
URRENT 



MMENT WRITTEN 8Y 
H BROWN 

U S NAVY MINE DEFENSE 
PANAMA CITY* FLORIDA, 
MARCH 1969 



LABORATORY 



* 
* 

> * 

* 
* 
* 

* 

* 
* 

* 
• 

* 

* 
* 
* 
* 
* 
* 

* 

it 

* 
* 

* 
* 

* 

* 
* 

* 
* 



724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 

737 
738 
739 
7fl0 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 

755 
756 

757 
758 
759 
760 
761 
762 
763 
764 
765 
766 

767 
768 

769 

770 

771 
772 
773 
774 
775 
776 
777 

778 
779 
780 



00427025 
00427050 
00427075 
00427100 
00427125 
00427150 
00427175 
00427200 
00427225 
00427250 
00427275 
00427300 
00427325 
00427350 
00427375 
00427400 
00427425 
00427450 
00427475 
00427500 
00428000 
00429000 
00430000 
00431000 
00432000 
00432050 
00432100 
00433000 
09434000 
00435000 
00436000 

00437000 
00438000 
00439000 
00440000 
00440100 
00440200 
00440300 
00440400 
00441000 
00442000 
004/13000 
00444000 
00445000 
00446000 

00447000 
00<»48000 

00449000 
00450000 
00451000 
00452000 
00453000 
00454000 
00455000 
00456000 
00457000 
00458000 



i 

• 

• 

• 

• 






m 

m 



m 
m 



•BEGIN 

♦COMMENT THIS IS A MUUTl-USER TEXT EDITING PROGRAM FOR THE BURROUGHS 

* B-5500. IT IS WRITTEN WITH THE SAME PHILOSOPHY AS USED IN 

* MINI/TEXT AND IS CALLED MANY/TEXT. DAVE BROWN. 12/17/68; 
♦COMMENTS 

* TC ADD ADDITIONAL USERS TO MANY/TEXT 3 CHANGES ARE REQUIRED. 

* CD AT 464000 AND 464200 THE MAXIMUM AND MAXlMUN-1 NUMBER 

* OF USERS MUST BE INDICATED, 

* (2) AT 759000-761000 USER FILES MUST BE INITIALIZED, 

* (3) AT 889000 AND 890000 THE REQUIRED NUMBER OF FILES 

* MUST BE DECLARED AND ADDED TO THE SWITCH FIlE.; 

•DEFINE MIXMAX = % MAXIMUM NUMBER OF USERS ALLOWED 

PRT(22) = *LIST, LABEL* OR SEGMENT DESCRIPTOR* 
PPT(23) 5= *OUTER BLOCK DESCRIPTOR* 
PRT(24) s *SEGMENT DESCRIPTOR* 








































* 
* 



4#^ 
MIXMI:* % MAXIMUM NUMBER OF USERS LESS 1 

BUFW = % WORD SIZE NEEDED FOR LARGEST TERMINAL BUFFER 

8#» 
BUFC = % CHARACTER SIZE Qf LARGEST BUFFER 

56#; 



USER* % LAST USER SERVICED 
DLYS* % DELAY IN READ TO KEEP FROM BURNING UP PROCESSOR 
NFUL' % NUMBER OF FULL INPUT BUFFERS WAITING TO BE SERVICED 



•COMMENT GL09EL DECLARATIONS FOR MANY/TExT; 
•INTEGER NUSERS* % TWICE NUMBER OF USERS IN MIX 
PRT(25) = NUSERS 
11 * 
PRT(26) s USER 

1 i ' * 

PRT(530) a OLYS 

1 I * 
PRTC231) » NFUL 

1 1 *InTEGER RESULT, start; % USED BY SCANNER} START IS NUMBERQF CHARACTERS 
PRT(232) = RESULT 
PRTC233) ' START 

1 I *comment 

1 1 * 

1 1 • 

1 1 • 

1 1 * 

1 1 * 

1 1 * 



THAT HAVE BEEN SCANNED, MEANING OF RESULT IS GIVE BELOW! 

RESULT MEANING 

UNDEFINED 

1 NUMBER (INTEGER FOUND) 

2 NAME FOUND 

3 SPECIAL CHARACTER FOUND 

4 <• INCOUNTEREO ; 
1 I *BOnLEAN DEATH, % INDICATES AN ERROR HAS BEEN MADE 

PRT(234) s DEATH 

1 1 • USEFUL** TRUE WHILE AT LEAST ONE USER IS PRESENT 
PRTC235) « USEFUL 

1 1 • 

PRT(236) = FILESOK 

1 1 * 

PRTC237) s GOTSOME 

1 1 * 

PRTC240) = THRUTYPING 

1 1 * 



filesok, 

gotsome, % 6ets0me gotsome input 

thrutyping, % true when there is no typing to be done 

star; S; TRUE if user typed LEADING * AND HAVE NOT SEEN GM 



* 
* 

* 
* 
* 

* 
* 



781 00 

782 00 

783 00 

784 00 

785 00 

786 00 

787 00 

788 00 

789 00 

790 00 

791 00 

792 00 



459000 
460000 
461000 
462000 
462100 
462200 
462300 
462400 
462500 
462600 
462700 
463000 



PRT{24n * STAR 

. 1 I •ALPHA 0,Q1; % PLACE SCANNER PUTS WHAT IT GETS (ANSW) 

PRT(242) « Q 

PRT{243) » Ql 



START OF SEGMENT ********** 

* 793 00464000 

* 794 00464100 

* 795 00464200 

* 796 00465000 

* 797 00466000 

* 798 00467000 

* 799 00468000 

* 800 00469000 

* 801 00470000 

* 802 00471000 

* 803 00472000 

* 804 00473000 

* 805 00474000 



* 806 00475000 

* 807 00476000 

* 808 00477000 

* 809 00478000 

* 810 00479000 

* 811 00480000 

* 812 00481000 

* 813 00482000 

* 814 00483000 

* 815 00484000 

* 816 00485000 

* 817 00486000 

* 818 00487000 

* 819 00488000 



2 

2 
2 
2 
2 
2 
2 
2 
2 
2 

2 

2 
2 

2 



2 
2 
2 

2 
2 

2 
2 

2 



2 
2 
2 

2 
2 



• 
• 



• 



# 



IP 

# 



1 1 

PRTC?<tA) = 
PRT(2«5) = 
PRT(246) - 



T 

Tl 

T2 






PRT(24 

PRTC25 



INFG 



*REAL T*T1»T2; % GLOBEL TEMPS* 11 BITS FREE IN Tl 



*DEri\E 

* CHFcKTImE=300#* % APRDX TIME BETWEEN STATUS CHECKS (SEC) 

* DLY=DLYS.C33n5J#, % HOLDS OEuAy FOR READS & TIMEOUT TIME 

* DLYT=DLYS,Ca5:3]## % DELAY TIME FOR READ 

* NSEC=DLYS,tl8M5]#,XAPR0X TjME SINCE LAST STATUS CHECK 

* ILTME=T1#* % ELAPSED IDLE TIME FOR PROGRAM (5) 

* PRTME=Ta.C 1»233#, % ELAPSED PROCESSOR TIME FOR PROGRAM (2) 

* ICTME=T2»C2^»2A]#, % ELAPSED I/O TIME FOR PROGRAM (3) 

* ST0R=10#; % NUMBER OF WORDS PER ROW IN INFO 
•ARRAY iNFOrOJMlxMl^OSQ]; % 019 iS OtSTOR-l 

*REAL IZ; % USED TO HOLD lNFOtUSER*0] 



IZ 



•COMMENT INFO CONTAINS INFORMATION ABOUT USERS, 
* INDICATE THE USE OF PARTS OF WORDS IN 
•DEFINE 



the following 
info; 



DEFINES 



• 
* 
* 
* 
* 
* 

* 
* 



* 
* 

* 

* 
* 

* 

* 

• 

• 



* 

* 
• 

• 



85BnOLEAN#,RaREAL#*CFs[33»15 3#»FF=[l8«l5 3*# 

TUS[TU8nsRCB(IZ'. = lNFOCTUBl*03) AND BC "rSOOOOO" ) ) #» % TU AND BUFFER * 

STARTOG»iZ.ri3M3)!'* % TELLS IF LEADING * IS REQUIRED OR OPTIONAL 

DEFAULT«@#* % 0-STARTOG INITIALLY RESET* 1-WOULD BE SET, 

NEWBASE s IZ.C41J1]#* % HAVE NEWBASE FROM SEQ SPECS 

FULLi:FULLn = lZJ=lNF0CFULLl*03 LSS 0#f % TRUE WHEN MESSAGE RECEIVED 

CHANGING«B(IZ,U3H])#* % USER IS CHANGING 



LABELEQUATED = B(lZ.C44:n )*» 
ENtERINGaB(lZ.C45Jn)#, % 
PATCHINGs8(lZ.C46!l] )#, % 
PR0GRAM=B<IZ3#* 
ROUTINE = IZ.C33U3#, 
PLACE = IZ,C37J33#* 

LiSTINGaROUTlNEsftiK, 
CCPYSEQINGsR0UTlNE=5#f 
RUM = IZ.C18:153#, 

FLE =IZ.|:3I6]#, 

TABAMOUNT = INF0CUSER*13 



% 
%IN 



USER HAS FILE OPEN 
USER IS ENTERING TEXT 
USER IS ENTERING PATCHE 
USERS FILE IS PROGRAM 
MULTICALL ROUTINE. E.G. 



% PLACE TO GO IN MULTlCALL 



% IN 



COPY OR RESEQUENCE MODE 

% CURRENT RECORD NUMBER 
% THE FILE NUMBER ASSIGNED 
[36«53«* 



LSS 

TO 

IN 



8UFOUT=INFOEUSR#n.C33»33##l NUMBER OF BUFFERS OUT* USED 

INC s INFOtUSER*l3.Cl8U53«* % STEP SIZE LSS 32768 

NCHRS[NCHRSl3=lNFOtNCHR51*13 .C41J73#* % NO, CHR5 USER HAS TY 

SEQNO « INFO[USER*23 »»% CURRENT SEQ NO, < 9999999 

MID = INFQtUSER*3])!(, % PREFIX OF USERS FILE NAME 

FID - INF0CUSER*43#* % SuFFiX OF USERS FILE NAME 

JON s INF0!:uSER*5]#* % 5*6*7 IS CHARGE CODE 

lAOT - INF0CUSER»83»C15233#* % USERS I/O TIME 

PRCT = INF0CUSER*83.C24»243#* % USERS PROCESSOR TIME 

lOLT « INF0CUSER*93.[ i:233#* % USERS 

STRT = INFOtUSER*93,[24:243#* % USERS 

FILESJUSTFIXED=REALCFILES0K)=3#* % 

BUMPIDLE*8UMPTIMESCTRUE)#* X BUMP ALL TIMES FOR ALL USERS 

bumptime=bumptimes(False)#* % Bump prct and iaot only 

COUNT = Q.tl2»63!«* % number OF CHARACTERS GOTTEN BY 
ANSW « Q#» X USE PRT INSTEED OF ARRAY FOR ANSW 
NUMBER = RESULT=101«* % SCANNER FOUND A NUMBER 
NAME = RESULT=102** % SCANNER FOUND A NAME 
BANDCD,P) = B(D) AND BCP)#* R ANO(P*D )*RC BAND{P*D ) )#* 



IDLE TIME 
STARTING TIME 



• 

* 
* 

* 

S * 

COMPILE* 

ROUTINE * 

* 

32768 * 

USER * 

* 

OUTPUTIT* 

PED * 
9 * 

• 
* 

* 
* 

• 

SCANNER* 

* 



820 00489000 



821 
822 
823 
824 
825 
826 
827 
828 
829 
830 



832 
833 
834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

8«5 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

664 

865 

866 

667' 

868 

869 

870 

871 



00489100 
00489200 
00489225 
00489250 
00489300 
00489400 
00489500 
00489600 
00^90000 
00491000 



831 00491100 



00492000 
00493000 
06494000 
00494100 
09495000 
00495100 
00495200 
00496000 
00497000 
00498000 
00499000 
00500000 
00501000 
00502000 
00503000 
00504000 
00506000 
00507000 
00508000 
00509000 
00509100 
00510000 
00511000 
00512000 
00513000 
00514000 
00515000 
00515100 
00515200 
00515300 
00515400 
00515500 
00515600 
00515700 
00515800 
00516000 
00516100 
00517000 
00518000 
00519000 



2«0 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



2«0 


2 


2«0 


2 


210 


2 


2«0 


2 


2»0 


2 


2»0 


2 


jto 


2 


2«0 


2 


2«0 


2 


210 


2 


2«0 


2 


2!0 


2 


2»0 


2 


2'0 


2 


2»0 


2 


2*0 


2 


2S0 


2 


2»0 


2 


2»0 


2 


2«0 


2 


2*0 


2 


2»0 


2 


2«0 


2 


2«0 


2 


2»0 


2 


2J0 


2 


2«0 


2 


2«0 


2 


2»0 


2 


2*0 


2 


2«0 


2 


2*0 


2 


2«0 


2 


2»0 


2 


2«0 


2 


2»0 


2 


2«0 


2 


2J0 


2 


2»0 


2 


2«0 


2 



• 
• 



# 

m 
m 
m 



w. 



^ * 



m 

m 
m 

m 

m 



PRTC25 

PRTC25 
PRT(25 



PRT(254) 



PRT(?5 



• 



PRT(?5 
PRT(25 



• 



DICT 



* eORf Df P)=8(D) 
*ARRAY OlCTCO!373# 



OR B(P)#* ROR<P*D)=R(BOR(PfO))#; 

% DICTIONARY OF WORDS AND SENTENCES 



* 



JIJNKCOJIS]* % USED INSTEAD OF LOCAL ARRAYS 



USRIBUFCOSMIXMl #0J9]^ % 
USR08UFC0JMIXM1 tOU63; 
USEROBUF IS USED TO DO 



INPUT BUFFER FOR USERS 



ALL WRITTING TO REMOTES, 



JUNK 

USRIBUF 

* 
USROBUF 

^COMMENT 

* OF USEROBUF CONTAINS INFORMATION ABOUT MESSAGE, 

* DEFINES INDICATE USE OF THIS WORD; 
♦DEFINE 

* CHIN = USROBUFCUSER*0])!i; 

* % note: OTHER DEFINES ARE IN OUTPUTiT 
*ARRAY FlLES[0:MiXMn; 

FILES 

♦COMMENT THIS ARRAY IS USED TO KEEP INFOMATION ABOUT USER 

* MEANING OF WORDS IN THIS ARRAY IS DEFINED BELOW; 
♦DEFINE 



672 00520000 

873 00521000 

874 00522000 

875 00524000 

876 00525000 



THE FIRST 
FOLLOWING 



WORD * 

* 
* 
* 
* 



FILES, THE 



* 

* 
* 

* 
•ARRAY 



ACCScn = FlLES[n,C6S63#, % 

FuSRCFUSRl] = FlLES[FUSRn,Cl8U53#,X 

FTYPEFTYPl] = FILESCFTYPn,[33Jl5]!((,% 

RUFNtBUFNl]=FlLESCBUFNn,[33!3]#* 

RECLtRECLn = FlLESCRECLn.C36J6]», 

BUFZCBUFZ1]=FILESCBUFZ13.C42»6 3|K» 

PTYPa!»l#<*'#, 

DTYPs^J?!©-*^ 

CTYPs"U<"*; 

W0RDtO«62]/ % CONTAINS RESERVED 



SERIAL.UPDATE OR RANDOM 

FILE USER» MIXMAX IF AVAILABL* 
INDICATES BUFFERING ON FILE * 
NUMBER OF BUFFERS * 

RECORD LENGTH * 

BUFFER SIZE * 

{1*10#30) PROGRAM FILES ♦ 
(1»15#0) DATA AND PRINT FILES * 
(1M5,30) COMPILER PRINT FILES* 



WORD 



CBUF 



WORDS 
CBUFtO«MIXMl>0:i03; % STORAGE BUFFER FOR TEXT TO BE CHANGED 



877 
878 
879 
680 

881 
882 

883 

684 
885 
886 
887 
888 
889 

890 
891 
892 
893 
894 
895 
896 



00526000 
00527000 
00528000 
00529000 

00530000 
00531000 
00532000 

00533000 
00534000 
00535000 
00535100 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
0©542000 
00543000 
00544000 



897 00545000 



•DEFINE % W VALUES FOR RESERVED WORDS 
* STARVsRESULTsi05#* SPEC I AL = RESUlT = 103# * 
C0LNV = W = 2?#, PLUSV = W = 23#» MNUSV = W524#;i 

PATV =Ws26#, 

ALGLV=W=29#, 

F0RTV=W=32## 

TAPEV=W=35#* 

pRNTV=W-38#» 



ARR0V=RESULT=104#» 



OKV =W=:25*» 
DATAV=W=28** 
BASCV=Ws3l## 
SYTXV=W=34#* 
NEWV 3:W337** 
FRCMV=W=40** 



PR0gV=W=27«, 
XALGVsW=30#, 
GOV »W»33** 
NTAPVsWa36#, 



INF0V=W=44#* 
FRSTV = Ws47*ji 
SAVEV = Ws50)K, 
BYV =Ws53#* 



8ASEV = Wa42)!'^ 
TOV =W=45*, 
ALLV sW=48#, 
SEQV sW*5l#, 

INV !:W*54*, 



ENDV sWs46#* 
LlNEVsW=:49«^ 
C0MAVaW=52#* 
SPECV=Ws55#* 

RVs56J!i* DV = 5a#/« RVMis55#» 
CHN6V=Ws 7tp RMDVV«Wxi2#, 
NOTCVsW NEQ 45*j« NCOMV = W 
•DEFINE % TO USE WITH CREATEFILE 

• PF ILE = "DOx<"## % PROGRAM FILE 

• 'DFILEs'*D0#0"«^ % DATA FILE 

• CFILE«*'#09<"#; % CONTROL FILE 
•DEFINE GETNUMBERCGETNUMBERl ) s IF GETC GeTNUMBERI) 
•DEFINE STEPIT=BEGIN 0LST?*START; SCANNER END*; 
•DEFINE 



THRUV = MmuSV#jp STEPV = PLUSV»* 
LCSV=WsO#* RPLV=Wai5#» TABV=W=13#, 
NEQ 52#* NINVW NEQ 54#; 

C20J60] (1,10#30) 
C20:103 C1M0*0) 
tl0:93 (1*10*30) 

THEN GO B 





* 


898 


00545100 


W=RESULT#* 


* 


899 


00545200 




* 


900 


00545300 




* 


901 


00545400 




* 


90? 


00545500 




* 


903 


00545600 




• 


904 


00545700 




* 


905 


00545800 




* 


906 


00545900 




* 


907 


00546000 




* 


908 


00546100 




* 


909 


00546200 




* 


9i0 


00546300 




* 


911 


00546400 




* 


912 


00546500 


» 


* 


913 


00546600 




* 


914 


00546700 




* 


915 


00547000 




* 


916 


00548000 




* 


917 


00549000 




• 


9lfl 


00550000 


#} 


* 


919 


00551000 




* 


926 


00552000 




* 


921 


00554000 



2«0 
210 

d<0 

■5t3 

713 

9»2 
9«2 
912 
9«2 
9«2 
9»2 
912 

U»l 

U»l 

uu 

11 !1 
IIU 
U«l 

ll»l 
ll'l 
li«l 
uu 
uu 
uu 
uu 

13U 



2 
2 

2 

2 



2 
2 
2 
2 
2 
2 
2 

2 
2 

a 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



15*0 


2 


15»0 


2 


15«0 


2 


15«0 


2 


1510 


2 


15»0 


2 


15«0 


2 


15»0 


2 


1510 


2 


15«0 


2 


15«0 


2 


15»0 


2 


15«0 


2 


1510 


2 


15«0 


2 


15J0 


2 


15«0 


2 


15«0 


2 


1510 


2 


15«0 


2 


15»0 


2 


15t0 


2 


I5t0 


2 


1310 


2 



i 



• 



• 
• 
• 



•: 






1 1 * RENAMEFILE*FILEMAINTENANCE#* * 922 00555000 15«0 2 

1 1 * REMOVEFILE=FlLEMAINTENANCE«* * 923 00556000 15»0 2 

# 1 I * LISTER = LISTBACK?!i; % * 924 00557000 1510 2 • 

1 1 *ALPHA FILE IN 8<i87 \U ( 2xM I XVAX# BUFW ) ; * 925 00558000 1510 2 

PRTc?60) = Ri!i87 

# 1 1 *ALPHA FILE OUT TWX lH ( 2xMI XMAX# BUFW ) ; * 926 00559000 1910 2 ^ 

PRT(p61 ) = TWX 

1 1 *FILE GFILE DISK (1^0,30?; % GLDBEL DISK FILE * 927 00559100 2310 2 

# PRT(262) » GFILE # 

1 1 *F!LE HELP HlSK RANDOM "MANYJEX" "HLFIXER" C1*ST0R); * 928 00560000 26«2 2 

PRT??A^^ — HFI P 

# ' 1 1 *PR0CEDURE WRITEHELPi * 929 00561000 30«0 2 S 
PPT(26a) = WRITEHELP 

1 2 * WRlTECHELPEUSER],STOR,INFOtUSER**]); * 930 00562000 30»0 2 

# 1 I *STREAM PROCEDURE MOVE (FROM, TOO* SKF# SKT, CHRS) J VALUE SKF, SKT*CHRS; * 931 00563000 3612 2 . # 
PRT(265) s MOVE 

1 2 *BEGIN * 932 00564000 36>2 2 

# 1 2 *CaMMENT WILL MOVE CHRS CHARACTERS FROM FROM TO TOO AFTER SKIPPING SkF * 933 00565000 37»0 2 # 

1 2 * CHARACTERS IN FROM AND SKT IN TOO, SKF* SKT, CHRS MAY BE GTR 63** 934 00566000 3710 - 2 

1 2 * spsLoc skf; si:=si+6; * 935 oo5670oo 37:0 2 

# 2 2 * IF SC NE9 "1" THEN SU^FROM ELSE * 936 00568000 3712 2 • 

2 2* BEGIN SI!=FR0M; Si:=Si+32l Sl8aSI+32 END; * 937 00569000 3812 2 
2 2 * SI!=Si+SKF; FR0M:=Si; DIJ=T00; DI!=DI+SKT; * 93a 00570000 39»1 2 

H 2 2 * Si:=LOC SKT; Si:=Si+6; * 939 00571000 40»3 2 

2 2 * IF SC NEO "J" THEN ELSE * 940 00572000 4lJl 2 

2 2 * BEGIN DI«=DI+32; DlJsDI+32 END; * 94l 00573000 41*3 2 

H 2 2 * SU=LOC CHRS; Si:=Sl+6; * 942 00573100 a2S2 2 (§ 

2 2 * IF SC NEQ "1" THEN SI!=FROM ELSE * 943 00573200 4310 2 

2 2 * BEGIN SISsFROM; 0S«s32CHR; DSs=32CHr END; * 944 00573300 «4»0 2 

2 2 * OSJsCHRS CMR * 945 00573400 44»3 2 # 

2 2 *END OF move; * 946 00574000 45«1 2 

1 1 *PRnCEDURE SENDCM1*M2); VALUE M1,M2; INTEGER MWM2; * 947 00575000 45«2 2 

# PRT(266) s SEND # 

1 2 *8EGIN * 948 00576000 4512 2 

1 2 * INTEGER CNfCR; DEFINE PCRLF=CR*; * 949 00577000 45«2 2 

H START OF SEGMENT ********** 3 # 

5TAcK(F+2) = CN 

STACK(F+3) = CR 

# 2 3 * INTEGER STREAM PROCEDURE SENDER( D*M* B, CN ) / VALUE M*CN; * 950 00578000 3 # 
PRT(?67) s SENDER 

2 a * BEGIN LOCAL T; * 951 00579000 3 

• 2 4 * si»*L0c m; dis=lqc t; Dn=Di + i; ds«s7 chr; * 952 ooseoooo 3 # 

34 * SISsD; T(Sl;aSI + 32; Si:=SI + 32); SI!=SH-M; MJsSI; * 953 00581000 1«0 3 

3 4 * dij=b; dis=di+cn; sis=loc cn; sn»si+6; * 954 00582000 313 3 

# 3 4 * IF SC = "0" THEN ELSE BEGIN On=DI + 32; Dn=DI + 32 END; SIJaM; * 955 00582100 510 3 # 

3 4 * APflF SC*"*" THEN JUMP OUT; DS:aCHR; TALLY : sTALLY+U ; * 956 00583000 6«2 3 

3 4 * SENDER! = TALLY; DS: = 3LIT", <??••; * 957 00584000 9«0 3 

# 3 4 * END Sender; * 95s oosssooo iojo 3 • 

2 3 * CN'=CHIN; * 959 00586000 ll»0 3 

2 3 * IF Ml NEQ THEN * 960 00587000 12»3 3 

# 2 3 * BEGIN * 961 00588000 13»2 3 • 

2 3 * IF Ml lSS THEN BEGIN OEaTHSsTRUe; CNS-O; CR8=9 END * 962 00589000 14«0 3 

4 3 * ELSE CR!s4; * 963 00590000 17«2 3 

3 3 * MnVECOlCT»USR08UFCUSER*l3,0,CN*CR); * 964 00591000 18«3 3 % 

3 3 * Cn:=CN+CR+ * 965 00592000 2lt3 3 
3 3 * SENDERCDICT*M1*USR0BUF[USER*13»CN+CR); * 966 00593000 22>2 3 

# 3 3 * PCRLF!=3 %00 .CRLF AT END OF LINE * 967 00594000 27ll 3 # 



# 



•» J 



# 






3 


3 


2 


3 


2 


3 


2 


3 


2 


3 


2 


3 


2 


3 


1 


1 


1 


1 


PRTc?70) 


« 


I 


2 


1 


2 



* end; 

* IF M2 LSS Q THEN PCRL,F!=3; 

* IF M2 NEQ THEN 

* CNJrCN+ 

* SENDER (DICT^M?,USR0BUF [USER* n»CN); 

* CHIN:=CN+PCRLF; THRuTYPlNG:aFAUSE; 
•END SEND message; 

♦DEFINE ERR=SEND#; 

♦PROCEDURE SCANNER; COMMENT FOR MANY/TEXT. 1/18/69 DAVE BROWN; 
SCANNER 

* BEGIN 

* DEFINE BLNKS=S6a#,NCHRS=SKP**ASP=SKP#; INTEGER BLANKS; 

ERROR IN COL 29« = 

SYNTAX ERROR. PLEASE TAKE TO PROGRAMMING ASSISTANT. 
STACK(F+2) = BLANKS 

2 3 * STf?EAM PROCEDURE SCAN( INARY, SKP#RESULT* ANSW^BLANKS); VALUE SKP; 
PRT(271) « SCAN 

2 t^ * 

2 * * 

2 4 * 

3 4 * 
3 4 * 
3 4 * 

ERROR IN COL 33t 
MISSING COLON AFTER LABEL. 
2 3 4 * DSLNKt 



* 

* 
* 
* 



* 



968 00595000 

969 00596000 

970 0«597000 

971 00598000 

972 00599000 

973 00600000 
97a OO6O1OOO 

3 IS 42 LONG, 

975 00602000 

976 00610000 



* 977 00611000 

* 978 00612000 
START OF SEGMENT 



979 00613000 



BEGIN LOCAL S64; LABEL DBLNK; 

COMMENT SKIP OVER PREVIOUSLY SCANNED CHARACTERS; 

SIJ=LOC SKP; Si:sSl+6; 

IF SC NEQ "1" THEN SI:=INARY ELSE 

BEGIN SI!=INARY; Si:=Sl+32; Si:aSl+32 ENO; Si:=SI+SKP; 
DltsANSw; Di:=DI+3; ASp:=Di; % STORE ANSW POINTER 



* 980 

* 981 

* 982 

* 983 

* 984 

* 985 
00612000 



00614000 
00615000 
00616000 
00617000 
00618000 
00618100 



2 


3 


4 


* 


2 


3 


4 


* 


2 


3 


4 


* 


2 


4 


4 


* 


2 


4 


a 


* 


2 


4 


4 


* 


2 


3 


'4 


* 


2 


3 


4 


* 


2 


3 


U 


* 


2 


3 


4 


* 


2 


3 


4 


* 


2 


3 


4 


* 



ERROR IN COL 30 J 



63CIF SC^" " THEN JUMP OUT; SIJ=SI+i; TALL Y» =TALL Y+l) ; 
IF SC NEQ " " THEN ELSE % HAVE GEQ 64 BLANKS 

BEGIN % PUT 64 IN BLANKS* I.E. NUMBER SCANNED OIV 64 
DiJsBLANKS; DI»sDI+6; OSJ=LIT"r'i 
SlSsSl+i; TALLYtrO; GO DBlNK 

end; 

BLNKSSsTALLY; % number of blanks scanned mod 64 
Dl'aRESULT; DI!=DI47; TALLYJaO; 

COMMENT HAVE A NON BLANK CHARACTER* SEE WHAT IT ISi 
IF SCi"0" THEN 

BEGIN % HAVE AN INTEGER (1) 

OS:=LiT"N"; oi!»ASP; 

ASP 
ILLEGAL STREAM STATEMENT. 

3 4 4 * 12(DSJsCHH; TALLY JsTALLY + i; If SC<''0" THEN JUMP OUT); 
ERROR IN COL 63« ) 
MISSING SEMICOLON OR END. 

4 4 4 * END 
4 4 4 * ELSE 

434 * IF SC=ALPHA THEN 

434 * BEGIN % HAVE AN ALPHA NAME (2) 

434 * DS»*LlT"d"; OISsASP; 

ERROR IN COL 30» ASP 

ILLEGAL STREAM STATEMENT. 

544 * 12nF 5C = ALPHA THEN DS: = CHR ELSE JUMP OUT; T AtLY «sT ALLY + i ); 

ERROR IN COL 69J ) 

MISSING SEMICOLON OR END, 

6 4 4 * END 

6 4 4 * ELSE 



986 
987 
988 
989 
990 
991 
992 
993 
994 

995 
996 
997 

99ft 
OO618IOO 



* 
* 

* 

* 
* 

* 

* 
* 



00619000 
00620000 
00621000 
00622000 
00623000 
00624000 
00625000 
00626000 
00627000 

00628000 
00629000 
00630000 
00631000 



* 999 00632000 
00631000 



1000 
lOOl 
1002 
1003 
IOO4 
00632000 



* 

* 
* 



00633000 
00634000 
00635000 
00636000 
00637000 



* 1005 00638000 
00637000 

* 1006 00639000 

* 1007 00640000 



27«2 
28*0 
30»0 
30«3 
3112 
35J3 
39»0 
NEXT SEG 
45*2 
45»2 



45«2 
45«2 



3 

3 
3 

3 

3 

3 
3 
2 
2 
2 

2 
2 
4 

175 



no 


4 


1»0 


4 


l>2 


4 


2«2 


4 


3*3 


4 




258 


5«0 


4 


5«0 


4 


7J0 


4 


7J2 


4 


7«3 


4 


8»3 


4 


9»2 


4 


9»2 


4 


913 


4 


1012 


4 


10»2 


4 


lUO 


4 


ll«0 


4 




250 


1210 


4 




119 


13S1 


4 


13«1 


4 


13«2 


4 


14»0 


4 


14«0 


4 




250 


15«0 


4 




119 


15»l 


4 


15 M 


4 



• 



• 












i 



• 



• 



# 



6 ,^ a * 

6 4 4 * 

6 4 4 * 

6 4 4 • 

ERROR IN COL 18! 

ILLEGAL STREAM STATE^'EMT 

7 4 4 * 
7 3 4 * 



BEGIN % HAVE A SPECIAL CHARACTER (3)* IF "«-" THEN (4) 
IF Scs"*-" THEN DS:sLIT"Q" ELSE 
IF SC = "*" THEN DSJsLlT"R" ELSE OSJ=LIT"P»'; 

DI5=ASP; dSjsChr; tallY:5»u 

ASP 



end; 

NCHRSSi 



ERROR IN COL 15! 

SYNTAX ERROR, PLEASE 
8 3 4 * 
8 3 4 * 

ERROR IN COL 22S 

SYNTAX ERROR. PLEASE 



% NUMBER OF CHARACTERS SCANNED 



tally; 

take to programming assistant. 
comment put number characters scanned in output array; 
sis=loc nchrs; si!=si+7; diisansw; on=Di+2; dsj=chr; 



9 

9 

9 

ERROR 

LABEL 

10 

10 

10 

10 

10 

10 

10 

10 

10 



3 
3 

3 
IN 



4 
4 
4 

COL 



I8t 



TAKE TO PROGRAMMING ASSISTANT. 

COMMENT PUT NUMBER OF BLANKS SCANNED 
SIJsLOC BLNKS; SI!=Sl+7; OlJsBLANKS; 

END OF scan; 



(MOO 64) IN blanks; 
DH:?Di + 7; DSJaCHR; 



UNDEFINED iN 



3 
3 
3 

3 
3 
3 
3 
3 
3 



* 

* 

* 



GG TO STATEMENT. 
ANSW}=0; RESULT5S104; 
IF STARTsO OR STAR THEN 

IF RCSTAR)="R" THEN % FIND OR REPLACE 
SC AN C JUNK [*]* ST ART* RESULT* ANSW* BLANKS) 
ELSE 
SCANCU SRI BUF [ U SER* *], START* RE SULT#ANSW* BLANKS); 
IF START=0 AND STARV THEN STAR:aTRUE; 

IF START«»START+BlANKS+COUNT GTR 80 OR ARROV THEN STARSbFAlSC; 
END OF scanner; 



10 1 1 *BonLEAN PROCEDURE SEARCHER(PRESENT*T YPE) ; VALUE PRESENT, TYPE* 

PRTC272) = SEARCHER 

10 1 2 * BOOLEAN PRESENT; INTEGER TYPe; 

10 1 2 * BEGIN 

10 t 2 * DEFINE SRCHsGFlLE*; 



* 1008 00641000 

* 1009 00642000 

* lOlO 00642100 

* 1011 00643000 
00638000 

* 1012 00644000 

* 1013 00645000 
OO643OOO 

* 1014 00646000 

* 1015 00647000 
00645000 

* 1016 00648000 

* 1017 00649000 

* 1018 00650000 
00647000 

* 1019 00651000 

* 1020 00652000 

* 1021 00652100 

* 1022 00652200 

* 1023 00652300 

* 1024 00653000 

* 1025 00656000 

* 1026 00657000 

* 1027 00658000 

4 IS 41 LONG# 

* 1028 00659000 



15«2 
15«2 
16»3 

18«2 



18»3 

18«3 



18»3 
I8I3 



19»1 
19»1 
20»2 



20»3 
22«2 
23»3 

25J0 
27»l 
27J3 
30«3 
33i3 
38S3 
NEXT Seg 
45»2 



10 2 3 
STACK(F+3) 
STACK(F+4) 
STACK(F+5) 

10 2 3 



10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 



2 
2 

2 
2 
2 
2 
3 
3 
2 
2 
2 
2 
2 
2 
2 
2 
2 



3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 



M 
F 
OLST 

* 

* 
* 
* 

■k 
* 

* 
* 
* 

* 

* 
* 



ALPHA M,F; LABEL BAD*SRCHIT; INTEGER OLST; 



DEFINE % ALSO INDICATES MEANING OF TYPE 

A = JUNK#* DATA = TYPE = OJ)f# PROGsj YPE= 1## COMP ILER»TYPE- 2#* 
PRINT»:TYPE=3#*D0ESNTMATTER = TYPE = 4## A0 = M#, A3 = F«» A4 = Q#; 
STEPIT; scanner; ^ look for SEPERATOR IN FILE NAME 
IF Q/"l/0000" AND REAL (PRESENT 3 LEG 1 THEN X NOT A FILE NAME 
BEGIN % USE THE FILE NAME IN INFO 

Mj-Mio; f:sFid; startj=olst; star!»true; % back up to what was 

IF M 6TR THEN GO SRCHIT; % TO LET NAMES BE FORGOTTEN 

end; 
start:=»olst; % back up to file name 
M»=F5=" "; scanner; 

if (NAME OR NUMBER) AND COUNT LEO 7 THEN 
MOVE( ANSW,M*3,1*C0UNT) ELSE GO BAd; 

scanner; 

if q="l/0000" then scanner else go bad; 

if (name or number) and count leq 7 then 

BEGIN 

MO VE(ANSW*F* 3,1* COUNT); 



* 1029 00660000 

* 1030 00661000 

* 1031 00662000 
START OF SEGMENT 

* 1032 00663000 



45»2 
45«2 

45«2 
********** 



* 


1033 


00664000 


* 


1034 


00665000 


* 


1035 


00666000 


* 


1036 


OO6661OO 


* 


1037 


00666200 


* 


1038 


00666300 


* 


1039 


00666400 


* 


1040 


00666500 


* 


1041 


00666600 


* 


1042 


00666700 


* 


1043 


00667000 


* 


1044 


00668000 


* 


1045 


00669000 


* 


1046 


00670000 


* 


1047 


00671000 


* 


1048 


00672000 


* 


1049 


00673000 


♦ 


1050 


00674000 



1»3 

3«2 

4)0 
9«0 
10»1 
10*1 
ll'O 
12»3 
16«0 

18»3 
19«1 
2l«0 
24U 
2453 



4 
4 
4 
4 
250 

4 

4 

175 

4 

4 

175 

4 

4 

4 

267 

4 
4 
4 
4 
4 
4 
4 
4 
4 
2 
2 

2 

2 

2 
5 
5 



5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
■5 






m 

m 






w 



•" ■ " •■ J ► ^ ♦ 



€ 



10 3 3 ^SRCHIT: fill SRCH WITH M,Fi SEARCHC SRCH^ AC * 3 ) i * 1051 00675000 27»0 5 

10 3 3 * AOJ^AtO]^ A3JsAC3]; A/>J«AC4]; * l052 00676000 3l«l 5 

tfttttnt -IMVALD INDEXJALGCL /MINI = 2, S = 48* A = 92!3* EFF INX IS -2 it»«#t$»ititit«if»»#»«»##»*»0it«$*$$««§$M««t$Mg 

# • 

# LABEL OOOOOOOOOLTNE 00176271CC COMPILE MINI/TEXT ALGOl LIBRARy;aLGOL FILE CARO^SYMBOL/MaNYTCX DISK E ALQOL /MinI H 

• .;■■ , m 

.m # 

;• . m 



• 
• 



• 

• 



? Execute patch/merge 



PACKET 
INPUT 

time; 

DATE 



1068 

1702 
76271 



CARDS FROM CRA 



MONDAY., 09/27/76 



i 

• 






*** MESSAGE GF THE DAY *** 

WELCOME TO B5700 TIME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS 
FROM THE STAFF OF THE BIG BAD BURROUGHS. 



PROVEN. 



*** BURROUGHS 6^700 TSMCP MARK XVI, 0.69 AND INTRINSICS MARK XVI, Q. 00 *** 

? EXECUTE PATCH/MERGE 
?DATa CARD 

5:PATCH/MERGE= 2 80J 1702 02/06/75 

CDA IN CARDtPATCH/MERGE= 2 

P801069 OUT Oil LINE»PATCH/MERGE= 2 

OKA OUT SER MaSTERF 0000000 JPATCH/MERGEs 2 

DKA IN SER PATCH TSSMCP J PATCH/MERGE- 2 

DKA OUT SER PATCHOE 0000000 J PATCH/MERGE= 2 

DKA REl PATCH TSSMCP J P ATCH/MERGt= 2 

CDA REl CArDipATCH/MErGEs 2 



m 
m 
m 



?END 



PATCHDE^0000000/0000000= S EGS--CREAT ED 09/27/76 AT 00S21tll5ll 

DKA REL PATCHDE 0000000 « PATCH/MER6E= 2 

PBD1069 REL Ou LINE 30 ! PATCH/MERGE= 2 

MASTeRF/0000000/0000000= 300 SEGS--CREATED 09/27/76 AT l7S02!/t7!22 

DKA REL MASTERF 0000000 i PATCH/MERGE= 2 

PATCH/MERGE= ?*PST= 24 EOJ 

PKT*i068 Removed 



m 
m 
m 
m 






« # 



LABFL OOOOOOOOOLINE: 00176271? EXECUTE PATCH/MERGE 

BURROUGHS B»5700 PATCH/MERGE PROGRAM MARK XVI,0«00 



PATCH /MERGE 



MONDAY^ 09/27/76* 5102 PM, 



• 



********** 



CARD INPUT IS CARD 
PATCHES/TSSMCP IS NOT ON DISK 
PATCH /TSSMCP INILL BE MERGED 



CONFLICTS 



•**«***********************4****************************************************** 



FORM = 75#»* SWITCH DCPCC )«FORM"-«SPECl Al." 

FORM = 76*, % SWITCH 0( PCC )"FORM"-"SPEC I AL" 

FORM = 75»,% SWITCH D ( PCO^FORM'-'^SPEC I Al" 

FORM B 77*,% SWITCH DCPCC 5"F0RM«-"SPECI At," 



20240000 C 846 CONFLICTED WITHI 

20240000 C 724 DISCARDED 

20240000 C 846 CONFUlCTED WITH* 

20240000 C 603 DISCARDED 



• 



• 

• 



• 



"FORM ", 


75 , 


"FORM ", 


76 t 


"FORM ", 


77* 



% SWITCH D(PCC) 
% SWITCH OCPCC) 



41485600 C 846 CONFLICTED WITH: 
41485600 C 724 DISCARDED 
41485600 C 603 DISCARDED 



NUMBER OF ERRORS DETECTED s 0. 
PROCESSOR TIME = 23 SECONDS, 
I/O TIME - 21 SECONDS. 



• 



LABEL OOOOOOOOOLINE 00176271? EXECUTE PATCH/MERGE 



PATCH /MEftGE 



rjf, 






.1^ 



Q 



? EXECUTE ESPOL/DISK 



1' 



PACKET 
INPUT 
TIME 
DATE 



1070 

496 

170 3 

76271 



CARDS ERGM ZIP 
MONDAY, 09/27/76 



• 
• 



• 



• 






*** MESSAGE OF THE DAY *** 

WELCOME TO B5700 TjME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF OF THE BIG BAD BURROUGHS, 

*** BURROUGHS B5700 TSMCP MARK XVI, 0,69 AND INTRINSICS MARK XVl.OfOO *** 



• 



7 
? 

? 

7 

DATA 



DISK SERIAL 



UP 



# 



? EXECUTE ESPOL/'DISK 
? STACK=J02ft 
CORE- 12000 

FILE TAPE= SYMBOL/TSSMCP 
FILE DISK=« TSS/XMCP 
FILE STUFF= TSSMCP/XSTUFF 
FILE LINE- LINE PRiNt QR BACK 
CARD 
4!ESP0L/DISK= 3 BOJ 1703 06/22/76 
OKA OUT SER CODE 0000000 :ESP0L/DI Sk* 3 
CDS IN CARO}ESP0L/DISK= 3 
OKA IN SER SYMBOL TSSMCP : ESP0L/DISK= 3 
DKA GUT SER TSSMCP XSTUFF I ESPOL/DI SK= 3 
DKA GUT SER CODlSK 0000000 : ESPOL/D I SK? 3 
3TI 
TIME FOR ESP0L/DISK= 3 IS I5:i7 IN 21J01 
TSSMCP/XSTUFF REMOVED 
TSSMCP/XSTuFF/OOOOOOOs 150 SEGS--CREATEO 

DKA LOk TSSMCP XSTUFF : ESPOL/DlSK= 3 
CD8 REl. CARDjESPOL/DISK= 3 



09/15/76 AT 15«37?nM« 



# 



?END, 



DKA 


REL 


DKA 


GUT 


DKA 


LOK 



17:03!38S53 



SYMBOL TSSMCPttSPOL/DISKs 3 

SER TSS XMCPJESPOL/DISK* 3 

TSS XMCP«ESP0L/DISK= 3 
CDDlSK/OOOOOOO/OOOOOOOs 1800 SEGS--CREATED 09/27/76 AT 
DKA REL CODISk 0000000 JESPOL/D I Sks= 3 

CODE/OOOOOOO/QOOOOOOs SEGS--CREATED 09/27/76 AT 17S03:28S25 
DKA REL CODE 0000000 : ESPOL/D I SK= 3 
ESP0L/DISK= 3*PST= 19S05 EOJ 
PKT#1070 REMOVED 



• 









€ 



p/i/y Rc&s 



m 



m 
m 



TEXT B2>fTOi^ 




m 
m 
m 



BY 



RUN 8R0DY 



12/22/71 VERSION 94 
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INTROOUCTION 



• 
• 

• 




R/C ALLOWS THE USER TO? 



CREATE A VARIETY OF FILES 

RESEQUENCE FILES 

PRINT OR PUNCH FILES 

DELETE OR INSERT RECORDS INTO A FILE 

MODIFY RECORDS wITHIN A FILE 

Scan a Vile for the occurrence of a string 
.coptionaluy replacing it with another string) 

remove files 

compile files 

perform many other functions 



m 
m 



ThE teletypewriter (IN CONJUNCTION WITH ThE PROGRAM R/C) CAN 
BE CONSIDERED A kEYPUnCH EXTENSION WHICH Ei^ImInATES PUNCHED CARDSi 
It OFFERS GREAT FLEXIBILITY IN FI^E HAnDlInG, 



R/C BAS TWO MAJOR RESTRICTIONS? 



WHILE THE SEQUENCE NUMBER 99999999 IS PERMITTED FOR 
CONVENIENCE, T^E MAxImuM SEQUENCE NUMBER IS 2097151 (2*2iwU, 






8191, 



THE MAXIMUM NUMBER OF RECORDS PERMITTED IN A FILE IS 



In THE DISCUSSION OF CERTAIN R/C vERBS, SqmE OF THE ElEmEnTS 
OF THE SYNTAX ARE GlyEN AS <M>, <N>* <I>^ OR <J>. IN EACH CASE* 
THESE ELEMENTS REPRESENT INTEGER VALUES WHICH mUST BE PROVIDED BY 
THE USER, THE VALUE MAY BE A RECORD NUMBER FOR SOME VERBS* THE 
SEQUENCE NUMBER FOR OTHERS* OR AN INCREMENT AMOUNT, THE 
BRACKETED CONSTRUCT IS ONLY A FORM OF NOTATION USED TO REPRESENT 
AN INTEGER PARAMETER* 



PAGE 2 



# 



PROGRAM OPERATION AnO RECORD SEQUENCING 

^m m m^mi m mmmm'^mmmim mm m m m m m m m mmm^mmmm-'ti^m 



: During creatIQn and file maintenance^ r/c automatically 

'AOVftNCES: CbY the cURRENT VftLUE Of THE "INCREMENT") THE SeSUENcE 
NUMBER OF EACH RECORD THaT IS INPUT, TH£ USER MAY S£T THIS 

Increment TO any oesIred value through use of the «*inc" verb 
(See ,8EL0W)f THE Increment value is initialized toioo .when the 

USER FIRST RUNS R/C, ■ - 






ThE'-INiTiAL SEQUENCE NUMBER iS SET |T0 ThE INCREMENT WrEN A 
NEW F.lLE IS OPENED BY A USeR, FQR EXAMPLE' IF THE CURRENT 

Increment were iqo^ tHe first sequence number in the file would 

BE "lOQ!", this initial SEqUENgE'- NUMbEr MaY BE CHANGED SY THE 
USER THROUGH THE usE OF tHE CONSTRUCT "*<N>"* (SEE BELOW). 



AFTER' EACH RECORD 
■NUMBER OF :THE nEXT RECORO 

■Number Plus THE increment* 
the^teletypewRiTeR, 



Is typed Into the file^tHe sequence 

In THE FILE IS i set Tq THE LAST iSCQUEmGE 

this sequence number Is next typed on 



^ IF THE FIlE type IS NOT "COBOL''' THE SEQUENCE' nUM'BER IS 

Followed by a colon, if a record already exists with this 
Sequence number^ leading zeros aRe typed aS a waRninq; otherwise 
leaoingnzeros are suppressed, after the sequence NUMBER Is typed 

out* THE user may TH^N ENTER ThE DESIRED 
SEQUENCE NUMBER qR M^Y EnTER A VERB Tq 

function; 



contents for ThAT 
PERFORM Some other 



ALTERNATIVELY, THE ^SeR M ^Y SeT THE SeQUeNcE TO SOMe OTHeR 

Value : THROUGH the use of the construct "*<n>"* where <n> is the 
.'DEsIred sequence number, note that leading zeros AREiAGCEPtED 

but NOT necessary WITH THIS CQnSTrUCT. • ; 



.. . by UsE of i tHE "*<n>" construct 

ThE .SEQUENCE NUMBER INCREMENT^ ThE 
NUMBERING SEQUENCE THrqUGHqUT HIS FIlE 



AND THE "•INC" VERB TO SE T 
USER MAY SET UP HIS OWN 



. .... THE EXAMPLES (Illustrate the sequence number of the record 
aTYPed, 0:N THE 'Left siqe of the Rage as it APPEARS ON the 

■ TELETYPEWRITER, AND THE HANNER In WHJcH THESE RECORDS ARE 

-Incremented, although algol* xalgol* basic and Fortran filEs 

•ACTUALLY CARRY iTHE SEQUENCE nUmBER In CHARACTER PQSITIonS 73'*80 
"OF ■ -THE ; record* i R/C TYPES THE NUMBER ON THE LEFT MARGIN OF THE 
^TELETYPEWRITER,] 



II 



• 



i 
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PROGRAM EXECUTION 



INITIAL .Remote teRminau opeRatiOns 



FOR loSG^NG^In to A tELEtVPEwRItER/- PRESS T^E "ORIG" BUTTON* 

Wait .fOR^ a oUL- tone from the speaI^eR* aNd dIaU the computer 
■Number, jHe bssoo-responds wItH the message? 



ByRRiUGHS B-5500: <TT>/<B8> 



i 
i 



.1^ (THE STATION NUMBER IS <TT>/<BB> WHERE <TT> IS THE 
TERMINAL. NUMBER AND <BB> IS THE Buf'FER NUMBER,)' 



YOU MAY TYPE? 



Lll <USERCODE>/<AUTHENTICATION CODE>* 



i I 



m 



. THIS LOG-IN MESSAGE MaY HaVe bEEN PRECEDED oY A ♦*?80«-'' 
MESSAGE wHiCH wOMiO HaVE BUACkED OUT THE tiNE ON ^HICH THE 
LOG-IN MESSAGE WAS TYPED, 

; THE 85500 VaUDATES THE <USERcODE> AND < aUTHENT IcaTION- 
COOE> AND RESPONDS BY TYPING OUT THE STATION NUMBER AND THE 
TIM£ OF DAY OF THE LOG-IN, 



To CONNECT A REMOTE TERMINAL TO R/C* ENTERS 



■ ( 



?? RUN R/CJEND,*- 



THE B5500 RESPONDS BY EITHER TYPING OUT A '*BQvI" (BEGINNING 
OF JOB) MESSAGE* A "SCHEDULED" MESSAGE* OR A "RUNNING" MESSAGE, 
A "BOJ" MESSAGE INqIqATeS THAT R/q WAS NOT PREVIOUSLY RUNNING BUT 
HAS NOW BEEN ENTERED InTO THE MIX AND IS READY FOR USE, A 
"SCHEDULED" MESSAGE INDICATES THAT R/C WAS NOT PREVIOUSLY RUNNING 
AnD IS SCHEDULED, In THIS CASE* R/C IS nqT BROUGHT ImTq THE MIX 

UNTIL Other system useRs complete their work, the "Running" 

MESSAGE INDICATES R/c IS aLReaDY IN THE MIX, 



• 
# 

• 
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WIIHR/C IN THE MIX* IT AUTOMATICALLY SEARCHES OUT AND LOCKS 
ONTO REMOTE TERMINALS WHICH HAVE REQUESTED CONNECTION CBY "RuN R/ 
G")* I AS SOON ASiYOUR TERMINAL IS LOCKED* R/C TYpES ONE OF THE 
FOLLOWING MESSAGE StQuENCES* ACCORDING TO tHE MANNER IN wHlCH R/C 
ENDED DURING YOUR LAST 'R/c RUN CfIRST'TIMe USeRS ARe cONSIqERED 
TO HAVE^CAUSED NORMAL LAST ENTRIES): ■ > , 



INITIAL MESSAGE AFtER NORMAl tERmInAtION OF LAST RUNj 



<R/C VERSION NUM8ER> 
HELLO <USERCOOE> 
J 



INITIAL MESSAGE ApTcR "* E^D X" OR ABNORMAL LAST RUN 
TERMINATION! 

IF A FILE WAS OPEN 

■-.■<R/C VERSION NUMbeR> .,. - . ^^ x - 

-' <FIlE NAME OF OPEN FIlE> ^^ ' 

helio+<usercooe> 

<SEqUEnCE NUMBER In THE OPEN FIlE>« 

or IF 1^0 FILE IS Open : > ^ ; ^ ' 

<R/C VERSION NUMbeR> 

hello+<usercode> 



; IF A ^ESSaGE HaS BEEf^ SgNT f^QH ^MOTHeR USgR TO YQUR 
USERCODE :C5EE t^E MAIL VERB), "MAIL %" IS jYPED InSjEAD OF 
•'HELLOn* 



EXAMPLES* 



VERSION # 
HELLO BLUM 
i 



THIS IS THE NORMAL INITIAL SEQUENCE FROM R/C. 



m 
m 



VERSION # 



• 



i 
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• 



t 



THIS seqUemce Indicates that r/c remembers the users 

ST^tE from T^E previous RuNf THE STATE INCLUDES THE 
IN;Cf^EMEN.T VAlUE' TAB AMOUNT* SaVE FACTOR^ PERCENT QN-QfF# 
AND VERB REPLACEMENTS* 



• 
• 
m 



m 
m 



VESSIQN # 
FILE/NAME 
HELLQ+ SHaRPE 
OOO5O6OOJ 



This SEQUENCE INDIcATEs tHAT UsER HAs T^E ^HE "FIlE/ 
NaME" OPEN AND IS AT THE RECqrD HITH SEqUENCE NUHbER 50600, 
THE LEADING ZEROS InOICAtE tHAt A RECORD ALREADY ExISTS WJtH 
THAT NUMBER. 



FINAL REMOTE. TERMINAL OPERATIONS 



• 
• 



• 



the^ useR Should terminate his usg qf r/c wjth the"* end" 
Command csEErBELOW). r/c will Respond with «6ood bye,« 

AFTER HE HAS ENDED R/C, IF THE USER IS DONE WITH THE REMOTE 
TERMINAL HE SHOULD LOg*OUT BY ENTeRINGJ "?L0*" 



R/C INPUT 



INPUT TO R/C IS EITHER COMMANqS OR ReCORoS, 



BY THE CHARACTER "*" In THE FIRST 
NO OPEN FILE* THE "*" IS OPTIONAL.) 



COMMANDS ARE INDICATED 
INPUT POSITION. (IF THERE IS NU urtN r ALt* T^t "*" 13 urnUNML.? 
ALL OTHER INPUT IS CONSIDERED REcORdS TO BE PLACED IN THE OPEN 
FILE, THE FORMAT FOR A COMMAND IS THE "*" FOLLOWED BY AN R/C 

VERB AND, iF NEEDED, iTS PARAMETERS. """ ' """" '"" "" 

MUST BE SEPARATED BY A DELIMITER. 



OLLDWEO BY AN R/C 
THE VERB AND jTS PARAMETERS 






A DELIMITER IS 
EXCEPT A «;♦», A •♦""» 



EITHER A SPACE 
•♦(", OR A 



•♦"". A '%"» A 



OR ANY SPECIAL CHARACTER 
"t", MULTIPLE 



DELIMITERS ARE TREATED AS A SINGlE DELIMITER, 



• 



• 



PASE 



A COMMAND MAY BE FOLLOWED BY ANOTHER iNPUT CEItHER A COMMAND 

Or A RECORD) IF IT IS TERMINATED BY A "i". AN ErrOr IN A COMMAND 

■OF A. MULTIPLE INPUT INHIBITS THE PROCESSING QF jHE REST OF THAT 
^ INPUTS ■ ; " - i ■ !< 



EXAMPLES; 



# 



iO0S* INC 50* 

I -•'■,■ . i ■ i 

,. THIS IS AN EXAMPLE OF ONE QF THE InPUT COMMANDS, 

IQOJBEGIN*- 

.; THIS: IS iAN Example of placing a record at sequence 

NUMBER 100. 



iQot* iNc 3;* Reseq*- 
• 'This is an example Of multiple commands, 

1001*35; THIS iRECORD GqES AT 35*- 

:':THIS IS\h example OF a COMMAND FOLLOWED B^ A RECORD OF 
INPUT, ' ' 



m 
m 



lOO!* OPEN lA/B OATA^* PRINT FOR ME;*CL0SE* 

/ this Is another example of Multiple commands. notE 

THAT THE t*" i MUST aPPEAR IN THE NEXT CHaRACTeR POSITION 
f^OLLOw^NS THE SEmICOlON OR THE REMAINDER oF THE RECORD IS 
TREATED AS DATA, 



• aN .i INPUT iLINE IS SENT TO TH£ COMPUTER B^ TYPING THE 

CHARACTER ««"t, tYPIn^ ERRQRs CAN BE CQRRECtED, 8Y BACksPACInG 

ANq LINe fRA^SING* i :Be;f0Re a MESSAGE IS S^NT, THe BACKSPACE 

CHARACTER IS THE, APOSTRQPHE (SHIFT 7) AND THE lINE ERASE 

CHARACTER Is T^E uP'ARROW <sHIFt N). ALL THE FOLLOWING LINES OF 

,I(^pUT ■ ARE rEaUIVALENT C NO^E THE UnDErLInEO CHARACTERS rEpRESEnT 

•USE OF THE SHIFT)!' 



lOOSTHIS IS IT* 
^lOOJTHIS IS NOT* 8UTNTHIS IS IT* 



■' \.j ^ 






• 

• 



• 



PAGE 



106ttHE7lS IS IT* 
1Q,0«THESe777IS IS IT* 



IF' AFTER BACKSPACING 
CONTAINS MORE jHt\H 240 CHARA 
'flNf?UT, OV-eRfLW." lERf^OR M^SS 

(WITH THE ERROR mESSaGe) IF 
E, GTR.66 FOi COBOL FILES/ 

ALL OTHER FILES) 



aMQ LINE ERaSIN6# THE INPUT LJNe 

ctERs* the Input is discarded wIt^ an 
Age. d^ta ReCqRdS are also oISCaRqeo 

THEY ARE ToQ LARGE Fqr THE FIi,E» CI, 
GTR 80 FOR DATA FIlEs; AND QTR 72 FOR 



THERE ARE TWO CLASSEs OE REQUESTS TO R/CJ LONG AND SHQRt* 

^LONq. OPERATIONS ARE ThOSE THAT USUALUY ARE SLOW TO EXECUTE AND 

ARE CHARACTErUEO BV THE "WaIT,.," MESSAGE. ALL OTHER REQUESTS 

■ARE CLASSIFIED As SHQRT OPERATIONS* LONG OPERATIONS ARE 
SOMETIMESr QUEUED BEFORE THE "WaIT.,." MESSaGE' TO BE EXECUTED 
ONE ATr :A;:tImE, short REQUESTS ARE DONE AS THEY ARE RECEIVED, 
THE- USERS , IN THE, LONG REQUEST QUEUE CaNd THe USeR PERFORMING A 
LONG OPERATION IF IT IS NOT TyPlNG ON ^THE i REMOTE) PERIQDICAj^ly 
RECEIVE -A FEW "RUBOUT" CHARACTERS ^OF REASSURA^NCE , R/C IGNORES 

any> Input semT by users In the queue qR by the user whose long 

OPERATION^ Is being PROCESSED. 



• 
• 

• 



• 



IP A USER PRODUCES NO INPUT pOR piVE MINUTES* hE IS SENT THE 
MESSAGE >wx.00K AlIVE"* IF HE DOES NOT RESPOND WITHIn ANOTHER FIVE 
MINUTE PERIOD* R/C PROCESSES A "* END OS" FQR tHAT USER. 



R/C OUTPUT 



: OUTPUT TO THE TELETYPEWRITER OF THE SPECIAL CHARACTERS *' ^> 

<f <> >k mot IS REPLACED BY A "$" CHARACTER IN OrDEr THaT THEY 

DO NOTvEVOKE tELETYPwRItER CONTROL FUNCTIONS WItH WHICH THEY ARE 

-ASSOcIATE0r -. (THeSe INcLUqE UINe-FEED' C^RR IAGE"«ETURN* MeSSAQe" 

END* AND 'PAPER'TAPE«ON») 



m 



WHEN- THE "BREAK" 
IS TERMINATED WITH THE 



KEY Is DEPRESSED DURING OUTPUT* 
MESSAGE "BREAK", 



THE OUTPUT 



• 
• 
# 
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^ s - : 

>' R/C FILES 



A ALL FILES CREATED By H^C ARE PERMANENT OISk FIlES, , THE SaVE j 

• - FACTOR Is NORMALLY 7 DAYS' BUT Ij MAY BE CHANGED BY THE SAVE, VERB > 



(SEE BELOW). 
FILE TYPES 



R/Cc ENABLES THE USER Tq CREATE AND MaINTaIN ALGqL' CoBqL* 
• FORTRAN*^ XALGOL* BAsIC, AND DAtA FlLEg* t^^EsE FIl,Es HAyE 80 ■ 

■ chaRacter*long Records* cone caRd iMAGE^t 

XAlGQL^ basic ALGOL AND FqRTRAN Fli.ES CONTAIN EIGHT OlGlT 
'SEQUENCE N0^*8Ers [.QCAtEO In J^l POSItIONS /S-^ao OF tHE CARD IMAGE. 

cOiO^ FILES C^^TAIN SIX-^plGlT SeQUeNcE NUMgERS* PLAcED IN 
POSITIonS4.6 qF the RECoRP. 

DATA- FIi^Es ARE NOT PHYSICALLY SEQUENCED ALTHOUGH R/C 

.-.Maintains. aN INTERNAL* eight-^digit number fur each REcOROt ^ • ■< i 

FILE NAMES 



i . Fll-E I^A^^eS must be SUPPLIED TO R/q* THg; FORM Of a ^aME IS 

<<FIlE PREFIx> / <FIlE 3UFFlx>t THRoUGHqUT THIS DOCUmEnT, <FIlE« 

'. NAME> Is usEO tO sPEClFy A FIlE AND sHOuLO BE iN THE FORM ABOvE, 

'THE <Fli,E PREFIX> AnD THE <FI(„E SUFFIX> MAY EACH BE NO LONGER 

'THAN SEVEN CHARACTERS* 



EX/f«PLES! 

■-■ ,i ;' ■ ■ ^ -■ ■ 

■-^> A/B 

GRIMY/GULCH 
• "^^■■■- ZAP/l 

;■- 16JAN/SUFFIX 
, ! N OODOOOO/DISK 



« 



# 



Ip 
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RECORD REFERENCING 



RECORDS In tHE OPEN F^LE CsEE OPEn BElOW) ARE REFERRED TO BY 
THEIR :Se9UeNce NUMgER. "OaTa" FILeS a«E iMPtlcITlY SeQUeNcED 8^ 
THE VALUE. OF THE InCREmEnT h^EN THEy ARE QPENEDf 

\ ■■■> ... 

: AN Alternate method qf referencing records in t^e open pile 
IS Relative sequence numbers, a Relative sequence numbeR is an 
Integer .pRECEEDED by a •>• or « siGNf it may be used anyplace a 



• 
• 

• 



Sequence numBeR i is useD. it is 
bVmoVInG Forward qr backward the 

USiNG tHE sequence NUMBER OF t^At 



translated to a SeQUeNCe NUMBgR 

Indicated n^^mber o^" records anO 

RECORD. 



Rec0Rds in a non-open,file cexteRnal 

BY their relative POSITION wItHIN tHE FiLEt 
1* THE jSECOND 2* ETC. ANY SEQUENCING ThAT 

is ignored V 



FILE) ARE ^REreRf^ED TO 

THE FIRST RECORD IS 

MAY BE ON THE RECORDS 



I . i 



i ■ I 



\ j 



€ 
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FILE-HANUt,lNG VERBS 



• 



This SECTION oescrises verbs that handle files as a whOue* 

RATHER THAN RECqrDS WITHIn A FltEt HqWEVEr* A FEW VERBS HAVE 
OPTIONS' In R/C SYNTAX THAt PERMIT ACCESS TO RECORDS WItHIN THE 
FILE, THE COMPLETE SYNTAX IS GIVEN FOR EACH VERB AS WELl AS A 
DISCUSSION AND EXAMPLES OF IjS USE» AN ASTERISK C"*") MgsT 
aLWaYS BE THE FIRST cHaRaCTeR IN THE INPUT STRING WHEN a cOMM^ND 
IS ENTEREDf IF THIS IS NOT FOLLOWED, AN ExISTInG RECORD MAY BE 
OVERWRITTEN BY THE COMMAND iTSELF, 



m 

m 
m 



m 

m 



• 



• 
• 
• 



# 






• 



• 
• 
• 



;" ^/:" PAGE u 

\; '■ ■ \ ,, . ( ■, 

^; V .. ■ \ ■,■... 

FILE OPEnInS^AnD- CREATION <OPEn) 
f * OPEN' <FiLE-NAME> <F iLE'^TYPE> NEW 

* OPEN <FIL,E-NAME> <FI|,E-TYPE> OL,D 

" ^ > n > ; •* [mfmmim imaitafiia.ataf •>;» •> •« •• t» a> ■> ai n ai •• •> p. ■■ „ <■«••> 

■ ■■' i ' • ,.■ ■ .,, '• : -■ 

*. OPEN <FItE-NAME> <FItE-TYPE> 

The "* open " veRB attaches the use^ to the disk file <file- 
.i .name>. . the <fii.e-type> must be either "algol"* ♦•cobol"* 

: "FORtRAM", "XALG8L"' ♦♦BASIC"/ OR "DATA^^. IF THE <OPEN TYPE> 1$ 
"nEW^^*:. A: new disk FILE IS CREATED. IF THE <OPEn TYPE> IS ♦'qLo'^* 

: . the disk' file <flle-name> is opened and resequenced by the 
.-cui^Rent- Value of the increment, if the <open type> is neither 

•?NEw" NOR nO^D'^ THE DISK FIlE <FILE»NAME> IS OPENED AND IT IS 
.READ :,tO DETERMINE jTS SEQUENCE NUMBERS, tHtS LATTER FORM tS 
':vStiWER THAN THE OPEN "OLD^^. 



c 

i 
i 



m 
m 
m 



EXAMPLES: 



• 



$* OPEN PROSRAm/SOURCE AlSOL new*. 

ioos = 

THIS CREATES A NEW DISK FILE CALLED PROGR aM/SOuRCE. 






63S00;* OPEN ANOTHER/PROG DATA OLD* 
4500 J 

THIS OPENS THE FILE ANOTHER/PRQG SEQUENCING IT BY THE 
CURRENT INCREMENT VaLUE. NOTE THaT THE FILE THAT WaS OPEN 
IS FIRST CLOSED BEFORE THE NExT FILE IS OPENED. 



J* OPEN YET/ANOTHER COiOL* 
WAIT... 

READ ONLY FILE, 
7504 

THIS OPENS THE FILE YEt/ANOTHER USING THE SEQUENCE 
NUMBERS WlTHIi^ THE FILE. THE MESSAGE "READ ON^Y FILE" 






« • 



f • 



^ 



# 
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Indicates that the user is forbidden (by the file security 

SYSTEM).TO MODIFY THE FILEt 



ERRORS 1 

DUP FILEJ <FILE-NAME> 

i A FILE> <FIUE-NAME>* ALREADY EXiSTS AND THE USER Is 
TrYImG To CREATE A FIlE WITH THAT NAME WITH AN "* OPEN t.* 
NEW", 

ND FILE' <FIUE"'NAME> 

THE USER IS TRYING TO QPEN A FIlE# <FIlE'NAME>' AND IT 
DOES NOT EXIST ON DISK. 



• 



BAD FILE! <FIUE-NAME> 



THE FILE <FIL£-NAME> WHicH THE USER liS TRYING .J Q OPEN 

is not blocked correctly. the correct blocking is lo'word 
Records with a multiple of 3 records per bL&ck»-^ 



• 
• 



INV USER' <FIlE-NAME> 



THE USER Is tHYInG TO OPEN A FILE TO WHICH HE HAS NO 
access. IF THr USeR HAS eHHeR SeCONqARY OR TgRTIARY 
access, THE MESSAGE? "READ ONL^' FILE" IS TYpEOt 






FILE TOO LONG 

ThE USER IS TRYjNg TO OPEN A F iLE WITH MORE ThAN 8l9t 
RECORDS, 

SEQ OVERFLOW 



THE FILE THE USER IS OPENING CAUSES THE SEQUENCE 
COUNTER TO EXCEED 2*097*151, THE FIlE IS OPENED* BUT THE 
USER SHOULD RESEQUENCE IT. 





• 
m 



m 
m 

m 
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SEO ERR-<N> 



THE FIlE contains A RECORD WHOSE SEQUENCE NUMBER <N> IS 
LESS THAN T^E SEQUENCE NUHeER OF jHE PRECEEDING RECORD. THE 
FlUeaS NOT 0PENED. 



IAD FILE TYPE! <FlLE-TYPE> 



<FILE^TYPE> Is NOT "ALGOL"* "C080Ln> '^FORTRAN"* 
♦'XALGOL'^* "BASIC"* OR "DATA"* 



i 

• 



• 
• 



• • 



« • 



* * 






• 



# 
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• 
• 



riLE CLOSING (CLOSE) 



• 



FILES ARE CLOSED BV USE qF THE FOUUoWInG CONSTRUcTJ 

"■, r'' i " i ■ , ■"" ■■ ■* ' 'i ■ - - ■ 

* CLOSE ■ i^- ' ■ 



THIS VERB OETATCHES THE QpEN FILE* FROM R/C^ 



examplesj 

5600?* CLOSE*- 

m 

This is an e^ampl^ Op closiNq 

CORRECT ORDER, 



. L „■-,... T 



• 



A pile That is in the 



^5oS* RESEQ 100* 
9000!* CLOSE*' 
WAIT... 



> THIS Is AN EXAMPLE OF CLOSING A FILE tHAj U NOT IN 
OrOER. 



ERROR! 






NO FILE OPENS CLOSE 



THe^e is no OPeN file TO CLOSE. 



m 
m 



• 



LISTINGS ON The teletypewriter (LIST) 



€ 
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m 



TO LiST f'lLES QR ANY OF jHEIR SEPARATE RECORDS* THE 
^ FOLLOWING CONSTRUCTS aPPLY; 

m * LIST 



* LIST <FlLe*NAME> 



* LIST <FILE-NAME> NO 



m 
m 



* LIST <FlLE-NAME> <M> 



* LIST <F1LE-NAME> <M> <N> 



* LIST <M> 



m 



* LIST <M> <N> 

'm ■ m m m m wfMtMp m m m 

THE "LIST" VERB CAUSES AN ENTIRE FILE OR PORTIONS qF A FILE 
TO BE LISTED ON THE TELETYPEWRITER. lUTING MAY BE DISCONTINUED 
8Y PRESSING THE bREAK KEY ON THE TELETYPEWRITER* 

THE FIRST FORM LISTS THE OPEN FILE. 

THE SECOND FORM LISTS THE FIL£ <FlLE*»NAME>f 

THE THIRD FQRM LISTS THE FIlE <FILE'»NAME># WITHOUT THE 
RECORD N'UmBERS, 



• 



• 



• 
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-THE FOURtM form LISTS <FILE-NAME> FRQM THE <M>TH RECQRO 
TO THE END. 

: THE FIFTH FqRM lISTS <FIlE"NAmE> FROM THE <NI>TH To THE 
<N>TM' RECORDS. 

^ ThE sixth fORM LISTS SEQUENCE NUMBEfi <M> Op -T^HE OPEN 






T*E lAsT fORM L^STS SEQyENCE NyMBERs <M> >tHR0u6H <N> OE 
THE OPEN FILE* 



• 



EXAMPLES} 



^ i 



» « ;. , i 



500J* LIST*- 

100IBE6IN 

2001 INTEGER I# J* K ; 

300; REAL X* Y* Z ; 

4OOS ARRAY A CO 8 91 ; 

5OO! 

55005* LIST 8900* + 3«. 
8950J I != I + 5 ; 
9125J GO TO NEXT ; 
9300; HELP? 
9ftO0l 

V 300* LIST 60* 
000060 MOVE A TO B, 
000070 

{* LIST SOME/FILE* 
IS BEGIN 

2 s INTEGER Ij. J^ K ; 
35 REAL X» Y# Z ; 
4 5 ARRAY A CO 5 93 ; 

.55: A [U ;a X ; 

• ^6SEND, 



J 01; 

•■ ' .\ i ■ 

-500 5'* 
■BEGIN ' 
S^ INTEGER 
-• 'REAL X# 
ARRAY A 
i A -^^ 
■END,' 
5005 



LIST SOME/FILE NO* 



I* 

Y» 
•CO 
113 



Jr K 

z ; 

! 9} 

!s X 



6 
• 
# 



C 



# 
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■ »* LIST tlBRARY/FlUE 2^4«- 
^ 25PROCEDURE READDATA 567*653 ' 

■ - 3?pR0CEDURfc WRITEDATA 654*789 • 

4:PR0CE0URe DATA 790*808 

■ ■■!* LIST SOMe/piLe 5*- ^ ^' 

5 J A CI] :* X ; 
6 SEND. 

?* LIST SOME/FILE 200*500* 
^ USE RECORD #S, • ' i 

THE LAST EXAMPLE ILLUSTRAtEs THE COMMON ERROR OF 
REFERENCING aN E^TErNaL FILE WITH SEQUENCE NUMBERS INSTEAD 

OF RECORD NUMBERS, 



• 
• 

m 
m 
• 



m 



# 



♦ ♦ 



' • 



=: ^ 
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# 



• 



COMPRESSED FILE LISTINGS (QUICK) 

mmmf'^mmmfmtim ■ illfm m mm mmmmummmmmm mm m m mm m '"f ^ 



A COMPRESSED FIlE LISTInG MAY BE OBTAINED FROM R/C BY USE OF 
THE CONSTRUCTS! 



♦'QUICK 

■■ IIP I «^ « w ft: m 



• 



*(QUICK <FILE''NAME> 



*.@UICK <FILE-NAME> NO 



* QUICK <FILE-NAME> <M> 



* 9Ulcl< <FIlE''^^*^E> <^> <^> 



*; QUICK <M> 



•*' QUICK <M> <N> 



THE "* QUIcK" VeRb lists QN THe TeLeTYPeWRITeR DELETING aH 
CONTtGydus BLANKS EXCEPT 1^^ FiRgj, ^-HE FIlE Is NOT AFFECTED BY 
THE VERB, 



EXAMPLE » 



4500:* LIST ^300*«400<. 

'«300{ ¥QR I 5- A STEP -i UNTIL 

4400 J X CI3 ?» SIN CY) ; 
4500S* QUICK -2» + !«• 

43iOJ FOR I !» A STEP -1 UNTIL DO 

Mooj X cn s= SIN (Y) ; 

4500 5 



00 






• 

• 

• 



# 



i 
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FILE REMOVAL (REMOVE) 



TO Remove a file uSe the fOli-OwiNq cOi^stRuct? 

* REMOVE <FILE-NAME> ^ ^ 

THE Remove ve^b Removes the fUe <file-name> from disk, 

-* 'REMOVE listing 



Removes uiNE/<useRcODE>' the listing file from the last 

■COMPILATION. 



EXAMPLES} 



32005* REMOVE A/B*- 
3200! 

5461* REMOVE AnOTHER/F ILE* 
NO FILE: ANOTHER/FILE 
546; 

!* OPEN EXAMPLE/X COBOL OLD* 
46500* REMOVE EXAMPLE/X* 
: 






m 
m 
m 



m 



• 



# 



• LInE^PHInTERiFJUE reproduction CpRlNT) 

THEi^ftlNT VERB! 
*PHim <A> <B> 






i 

PAGE 20 ^ 



I 



• 



' V :PRjNTS THE OPENED FiL.E ON tHE UNE PRINTER (LABELED <A> 

<B^)» IF "<B>»' IS "DqUbuE" then dqUsle SpacIng is used* 



*• PRINT <A> <B> <M> 



"•• AS ABOVE* STARTING WITH SEQUENCE NUMBER <M>» 
* PRINT <A> <B> <M># <N> 



u^ ^^ AS ABOVEf STOPPING WITH SEQUENCE NUMBER <N>t 

'EXAMPtES! 

J* OPEN tEST/CAsE data;* PRINT T^ DOUBLE/* CUOsE,, 

THIS eXa^PI-E ILLUSTRATES a"^ I^^STaNcE WhE^E a SeSUeNcED 

file sHoulO be tREAjEO As data to sHortEn the operatIoni if 
thE File was opened "alqol oud" it wOulo have been 
resequenCed by the current vai,ue of the Increment and then 
WHEN It was closed It wouio have been recopied, if It was 

OPENlD "aUGqI." it WnULO HaVE BEEN rEaD Tq DETERMINE ITS 
SEQUENCE NuMBERSf EItHER wAY WOuLD HAyE MADE t^E hHQlE 
OPERATION MUCH SLQWeR THaN OPENING THE FIIE "OaTa'S 

87005* PRINT FOR USER*- 
WAIT... 
8 700 8 



• 
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PUNCHED-CARD FIlE REPRODUCTION CPgNCH) 



TO PUNCH A file; 



* PUNCH <A> <8> 



PUNCHES. A CARD DECK CLaBELED <A> <B> ) Qf THE QPEnED 



FJt;E, 



<^ >punch <a> <b> <m> 



AS ABQVI* iSTARTlNG wiTH SEQUENCE NyMBER <M>, 



* punch <A><8> <M># <N> 



^ ■!* ^ - '■ ^: ^, ■:i 



/J AS ABOVE, STOPPING WItH SEQUENCE NUMBER <N># 
EXAMPLE! 

76iQ!* PUNCH A B 100* + 10<- 
■ WAIT., , 

■ • 7600 5 i r ^.\ : 



i 






m 
m 
m 
m 



• 



! I 



^B 



# 
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FltE COMPILATION (COMPILE) 



construct: 



Way be compiled to the bssoo libRaRy by the foiuowins 



^•■COMPILE <FILE-NAME> 



« 

i 
i 
i 
m 






THIS VERB Initiates tHe compilation qf the op£n-file*to 

LIBRARY , USING ThE COMPilER INDICATED JN THE OPEN STATEMENT. 
THE OBJECT CODE IS nAmED <FIlE*nAmE>. THe lI^TInG OUTPUT qF 
THE COMPILATION Is EQUATED TO "L INE/<USERC00E>" ON OlsK. 
THE .'•♦LISTING'* VERB maY BE USED To lIST THE SYNTAX ERRORS, 



* COMPILE <FIiiE-NAME> <C0MPIlER> 



-. Co^Pll-ES THE OPE-N FRE USI^^G THE SpEclFlED CqMpHER' 
EXAMPLES? 



5FO0?* 
WAIT... 

I, ' : 



COMPILE OBJECT/CODE' 



479!* COMPILE 
QUEUEDC U.WAIT,,, 



tESx/QBjECt eztRan*- 



m 
m 
m 
m 
# 



• 



IN t^^e last Example, the ^'eztRan" compiler ceztRan/ 

0I§K) WILL BE USED* IF THE FILE I^ NOT IN ORdE^' IT WILL BE 
REORDERED. SIncE THIS IS A LON^ OPERATION THE ySER GETS A 
"WAiT" MESSAGE. T^^E "QuEuED" MESSAGE iNDtCAtEs THAt ANOTHER 
USERS LiN^ OPERATION IS BEI^G PROCESSED AnD THAT THIS LON^t 

OPERATION IS Queued until the other is done, the «i" 

INDICATES THAT THIS IS THE FIrST rEqUeST iN THE qUeUe. 



%: 



c 
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IP 



OUTPUT OF THE COMPIliATlON (LISTING) 



THE- LIstInQ FIi,E OF j^iZ COMPILER Is EQgATEO • T& LInE/ 
<USERC0OE> ON OjSK, Th^ fI^^ MAY BE ACCESSED BY ThE USE Op TgE 
LISTING verb: 



m 
m 



m 
m 
m 
m 
m 
m 



^'tlSTINa <FILE-TYPE> <S>* <L>* <U> 



i ; LISTS iTHE SEQUENCE NUMBERS RELATED TO SEGMENT <S> FRQM 
RELATIVE ADDRESS <L> TO RELATIVE ADDRESS <U>i <FILE-TYPE> 
IS, ALGqL/ XALGot' BaSIC^ CoBQl' QRForTran AnD INDICATES 
WHICH COMPILER CREATED THE LISTING FIlE "LINE/<USERC0DE>». 
(THIS: FILE IS AUTOMATICAltY GENERATED BY THE COHPILE VERejt 



* LISTING <FILE-TYPE> ERRORS 



'iN». .!iii4pwmi«mf«« 



QlSTS THE SYNTAX ERRORS qF YqUR ^AST CqmPI L^^^^ ON* 






* LISTING 



: PRINTS^ THE LINE FILE OF VqUR LAST COMPILATION ON THE 
PRINTER, 



EXAMPLES! 



.«* LISTING ALGOL 5* 

^WAIT.V. SEGMENT s 

4 300 J REL. AODR. = 
4400« REL, ADOR, * 
9200! REL, ADDR, = 
9300S REL, ADDR, « 

i* LISTING ALGOL ERRORS*- 

WAIT,.. 

7800tERR0R lOO 
S ' 



25* 35«- 
5; 

- 26. 

* 29, 
= 32. 

* 35, 



I 



89005* 
8900» 



LISTING* 



• 



^^fi 
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FIUE ZIPPED AS AN "EXECUTE" DECK (ZIP) 



# 



To. Implement the 

•FOUtOWII^G CONSTRUCTS 



Z IP 



i Tl^IS CONSTRUCT 
THE cONTrOL cards 

REFERENCE MANyAL FOR 

STATEMENT, 



* ZIP <FmE-NAME> 



B5500 ZIP FUNCTION THROUGH R/C* USE THE 



ZIPS THE OPENED FIlE AFyER It lINKS ALU 
AS INDICATED BY "?", SEE THE aUGOL 
A DESCRIPTION OF j^E "ZiP wIt^ FI^E-ID" 



. • ,' \ ■■■ 

COPIES THE OPeI^EO FILe CReATINq <fILe-NAM£> and ZIPS 
<FlLE-NAME>t NOTE THIS «ZIp». CONSTRUCT DqES NOT DESTROY THE 
OPEN FItE, AS DOES THt FIRST FORM, 



EXAMPLES: 



• S COLUMN ON "?•"/ COLUMN ''S*- 
; sOPEN MAKE/MANyAL DAjA NEw; %%Ex£CutE xREF/jONESt* 
2005%%FaE DISK * TeaCHER/0000094,*. 
300j%% DATA CARD**- 

ddOJi DISK SIX OOCONLY DOCUMENT FINaL<- 
■. 500?f'99999999«" 
■ 600:%% END.«- 
i ^ ^ 7001* ZIP TEMP/NAME* 
■'■^■WAITw,. 

-rocs 

i ■ : - 1 ■ r ■- 

THIS ;EXftMPL£ ILLUSTRATES HOW TO CREATE A CONTROL DECK 
AND INITIATE ITS ExECUTlQNt THE DECK WAS SAyEO (UNDER THE 
NAME: "MAkE/MANUAL") SINCE tHE ZIP CONSTRUCT INCLUDED THE 
DUMMY FIlE "TEmP/NAME«» (NOTE THAT THE A80VE DECK WILL 
CREATE AN R/C USERS MANUAL*) 



• 



'5*- OPEN 
^WAIT.,, 

:' 



MAKE/MANuAL OATA;* ZIP l/Hi* CLOSE*- 






PAGE 25 



RECORD HANDLING VERBS 






• 

• 
• 
• 

m 










t * 






m 

# 
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RECORD COPYING CDItTO) 



RECORDS. f»,AY BE CoPlEO FROM ONE PlACE TO AnqTHER WITH^)^ A 
FILE BY THE CONSTRUCT? 



* DITTO <M> 



i 



m 
m 



COPIES CARD IMAGE <M> AS THE NEXT RECOROt 



* DITTO <M>, <N> 



COPIES T^^E CARD ImAGEs <M> tO <N> As tHE (vjEXT RECORDS, 

■,; '-. V ;■; " 

* DITTO OVERiTE ON 

, m ::• " *"m m mi mmmmmmm mm 

* 'DITTO DVERITE OFF 



*jDITTo OVERITE 



: . JF THE DITTO OVeRITe IS OFF aNq aN EXISTING RECORD IS 
ABDuT To BE OVERWRITTEN* THE OITTq TERMINATES wITHan 
"OVERiTE OFF" MESSAGE, ( jT iS iNjTlALUY OFF,) jHE ABOVE 

Commands are used tq set the option a^d Tq prImT its current 

SETTING, ilxs SETTING MAY BE REvERsEO FOR ONE COMMAND BY 

Prefixing the ditto with a ". ce,g, *"ditto 10*50,) 



* ditto <m> move 






* ditto <m>* <n> move 



the move option* moves RECORDS <M> THRU <N> TO THE 



CURRENT LOCATION* 
IS N8T AUUOWED, 



PAGE 27 
THIS OPTION IS VERY FAST, BUT OVERITING 



EXAMPtES; 



soar* DITTO 200,300«- 
■foot* LIST* 
^1001 ONE 

^loorTwo 

^ 300 8THREE 
400! FOUR 
^SOOJTwO 
i 600STHREE 

. ! 7001* DITTO 200/300 M0VE;*LIST* 
• lOOJONE 
'400! FOUR 
SOOSTWO 
. 600STHREE 
70CJTWQ 
•BOO 5 THREE 
90 01 



I ■■ ' i 



• t 



• 
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COPYING EXTERNAL FILES CC0PY3 



WHOLE OR PARTIAL EXTERNA^ FIlES mAY BE COPIED InTO THE 
CURRENTLY OPENED FILE BY THE CONSTRUCTS; 



* COPY <FILE-NAME> 



* COPY <riLE-NAME> <M> 



* COPY <FILE-NAME> <H>, <N> 



* COPY <FIUE'NaMe> MERGE 



THE COPY VERB COPIES RECORDS FROM ANOTHER FILE (<FIlE- 
NAME>), 



c 

i 

i 
m 
m 



m 
m 



THE FIRST FORM COPIES THE wHQlE FlLEt THE SECOND FQRM 
COPIES THE <M>-tH RECORD (WHERE THE FjRsT RECORD OF <FiLE- 
NAME* IS l» THE SECOND RECORD IS 2* THE THIRD IS 3# ETC). 
THE THIRD FORM COPIES THE <M>-TH THROUGH THE <N>-tH RECORDS. 
THE UaST FOrN uses THE SeqUENCE NUMbErS OF THE rECOrDS OF 
<FIlE-NAME> to determine THEIR POsItION In tHE OPEN FILE. 



• 



* COPY overite on 



* COPY overite off 



• 



* COPY OVERITE 



IF THE COPY OVERITE IS OFF ANq AN EXISTING RECORD IS 
ABOUT TO BE OVERWRITTEN* THE COPy TERMINATES WITH AN 
"OVERITE OFF" MESSAGE. (U IS INITIALLY OFF.) THE ABOVE 






■ ' ' :: : PAGE '^ 39'^ 

COMMANDS ARE USED TQ SET THE QPTlQN AnO Tq PRInT ITS CURRENT 

SETTING, Its setting may be reversed por one command by 

PREFIXING THE COPY WITH A *", (E»G, *^COpY A/B 10*50.) 



E'XAMPUESJ 



I* OPEN SOURCE/MARKT ALGQU NEW* 

lOo:* Copy source/mark6«-^ 

WAIT.., 

6900? 



« 





;N ' 5008* COPY llBRARY/piUE 345# 368* - i - 




WAIT.,, 




■-^2800! 1 . '•..- 


■"■'^1 


MquICK PATdH/FlLE*- 


\ ,, 


1! A 00000050 




25 8 00000150 


'^ '.J ■ , 


3«C 00000200 


\ ... : 


4JX 00000175 


\ ,,: \j 


5!Y 00000250 


'\ ' ■ . . 


^^ 6SZ 00000250 


'•■- ... 


V . JOPEN MY/SOURCE ALGOL OLD* 


\ .: . 


400S* COPY OVeRITE ON;*COPY PATCH/FIt.E 


N ■,^: {■ 


^ 4001* LIST*- 


'\ ■ v ■' 


^:--^-^-^ SOS A 


■'\. . • ■-. 


'^^ 100! I 


■' . - 


■ - ^ • 150? 8 


"''■ ^./ '. ■■ 


-• 175!X . 




■ '^ - 200 ;c 




250 :Z 


\ 


300 J 3 


\ ■,„• ; 


400! 



MERGE* 



• 



• 

• 
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INTRa-RECORD editing (INLINE) 



RECORDS MAY BE EDITED BY gsE OF THE "* INLINE" CONSTRUCTS 
DESCRIBED In THE NEXT PARAGRAPHS, 



* INLINE <M> 



• 

m 



* INLINE 



* INLINE <M» <EDIT ChR> 



* INLINE <EOIT CHR> 



• 

# 
• 



• 



THIS SETS Up |_InE <M> FOR 
NUMBER <M> IS NOT INCLUDED wItH 
IS USED And THE InHLAl PRInTInG 



* INLINE ECHO ON 



InlInE EOlTlNGt IF THE SEQUENCE 
THE COMMAND, THE PREVIOUS RECORD 
OF IT IS SUPPRESSED^ 



* Inline echo off 



* inline echo 



THE modified RECORD wiLL BE TYPED ON tHE TELETYPE IF tHE 
inline echo is on, (IT IS INITIALLY ON,) THE ABOVE cOMMaNDS aRE 

useo to set the option and to print its current setting, its 
Setting may be ReVeRseo fdr one commanq by prefixing the inline 

WITH a •. <E.Gf * -INLINE +3,) 



TO MODIFY A PORTION OF A RECORD (CARD IMAGE) USE THE "* 
INLINE" VERB. R/C PRINTS THE RECORD NUMBER AND THE LINE* THEN 
GIVES A CARRIAGE RETURN AND LINE FEED, It NEXT SPACES THE PRINT 



• 
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BAi-U (ON THE Ne'^ LINE) DIRECTLY bEIQW THE FIRST CHaRaCTeR 

POSITION OF THE OLD lINE, ABOvE. THE USER SPACEs JHE 'PRINT BALL 

TO THE PROPeR position AnD ACCOMPLISHES THE FOLLOWING ACTIONS; 



i 
« 
i 



• 



# 



TqCI^iSErT a STRING* TYpE THE LETTER "I" FOLLOWED BY THE 
STRING AND A "♦•", - ' ' ■ 

^ '■' 'TO DeUeTe a STRING* USg THE IeTTeR "0« fOLLOW-eO BY 

Spaces Under the characters tq be oeleteo ano then a «*••»• 

-i' TO REPLACE A STRING, USE THE LETTER "R" FOLLOWED BY tHE 
New STRING OF THE SaME LENGTH AND A "*■'% 



- IF THE MODIFICATION IS To BE DONE IN THE FIRST 
CHARACTER, THEN INCLUDE ' THE "I"> "R"*^ OR "D" wItH-tHE INLINE 
COMMAND, 



i 



EXAMPLES?. 



# 
• 



TO INSERT CHARACTERS INTQ A RECORDj 



300;*INLINE 30500*- 
■ 30500JABCDiFGHlJK 
000305001 I12345*- 
, f305CO:ABCl23450EFGHIJK 



TOiDELETE CHARACTERS FROM a RECORDS 



• 
• 

• 



77001* INLINE 67700«- 
' 6770O8ABCOEFGHUKLMN0P 
00067700! D * 
67700IABHIJKLMN0P 



TQ REPLACE iCHARACTERS IN A RECORD? 



600s* I INLINE 551«- 

551SABCDEFGH1JKLMN0PQRST 
00000551JR123454- 

• 551SA12345GHUKLMN0PQRST 



• • 



1 



• 
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TO MODIFY A RECORD BEGINNING WITH ITS FIRST CHARACTER! 






00006700t*INUlNE 70800 0«- 
r0800;ABCDEFGHlJKLM 

00070800 5 «■ 

70800SOEFGHIJKLM 

7d900*,* INLINE D* *■ 
7o8bO{EFGHlJKUM 



' THE "R" AND "I" FORMS OF THIS IATTER CONSTRUCT OPERATE 
IN A SIMILAR FASHIQNt 



• 
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STRINGS 






c 






m 



# 
• 



R/e^ScANS F08 THE QccURReNcE Of A STRJNG BY USE Op THE "* 
SCAN" AND "* CHANGE" VERBS. In THIS APPLICATION THE FOLLOWING 
DEFINITION OF "STRING" APPLIES! 



<STRlNG> I!- <tEFT> <TeXT> <RIGHT> <C0LUMN RaNGE> 
-^ <LEPT> j:s "/ C / C / . 
■^ <RIGHT> !!="/)/]/» 
\^ <TEXT> 8!s SANY STRING OF CHARACTERS 

c^^ EXCLUDING THE <RIGHT> CORRESPONDING 

■• To THE <lEFT> character USED.> 

<COLUMN RANGE> U* SEMPTY> / 

f!*<INTEGEH> / S»<INTeGeR>-<INTeGER> - 

iFt THpv STRING IS DElImUED By PERIODS, AN ADDED CHECK ^ WILL 

'BE MADE BEF0RE DETERMINING A MATCHED STRInG, tHIS CHECK INSURES 

THAT THE MATCHED STRInG WIlL BE IMMEDIATELY PRECEEDED AND 

Followed BY A non^alphanumeric ^character, hence ^this form should 

BE USed^FOr identifiers, 

if the <column ranG£> is specified, a match wIll be found 
only if the first character appears wIthin the range, ; 



• 
m 



m 
m 



EXAMPLES: i '^ 

^ • . V 1 it, 

■: \ I "FD"§8 

;. '■ ■ ■: ■■ I • h; 
■^ ; .LIST,^ 

"M :5 IMAGE C53 f"?15-25 

(WORD cn ;- "Scan" ;) 



«« 



# 



f t 



« • 



• • 



PAGE 34 



i 

• 
• 



CHANGING THE OCCURRENCE OF A STrInS CCHAnSE) 



ENTIRE STRINGS MAY B£ CHANGED IN A fllE BY USE OF THE "* 
CHANGE" VERB, 

* CHANGE <STRING> TO <STRING> 



m 



SCANS THE CURRENT RECORD REPLACING EVERY OCCURRENCE OF 
THE FIRST STRING WItH THE SECOND* IF NO ♦'<STHING> TO 
<STRInG>" APPEARS THE PREVIOUSLY USED STRINGS WiLt BE USED 
AGAIN, 



* CHANGE <M> <STRING> TQ <STRlNG> 



AS ABOVE* For t^E RECORD WItH SEQUENCE NUMBER <M>, 



* CHANGE <M** <N> <STRlNG> TQ <STRiN6> 



• 
• 
• 
• 



# 



<N>, 



AS ABOVE, FOR A^t RECORDS FRQM SEQUENCE NUMBER <M> TO 



* CHANGE ECHO ON 



* CHANGE ECHO OFF 



* CHANGE ECHO 



THE MODIFIED RECORDS WiLL BE TYPED ON THE TELETYPE IF 
THE CHANGE ECHO IS ON, (IT IS INITIALLY OFFt) THE AbOVe 
COMMANDS ARE USED To SET THE OPTION AND To PRInT ITS CURRENT 
VALUE, ITS SETTING MAY BE REVERSED FOR A COMMAND BY 
PREFIXING THE CHANGE WITH A •, CEfG* *-cHANGE "X" TQ "Z", ) 



m 
m 



• 
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■EXAMPLES s ^' •:- 

00004200S* CHANGE "REWaTF./cARD" TO "R/c"' *CHANg£ 5300«- 
00005 300: 

87Q0U 'CHANGE "1 »TWX.e2S-30 Tq "TE^ETYpHRnER"*- 
06008 THE OUPUT U TYPED ON THE TELETYPWRI TER IF 
00008600: - ' 

- 4505* CHANGE 232^ 448 "INAqE 111'' TO (Z tJV*- 
WAIT,,. 
00000448! ! 

470001* CHANGE 2200 + 6 " "^1 " "«■ 
00002800!* CHANGE +1 + 3 " "^l '•"«- 
00003200$ 



c 

m 
m 
m 
m 
m 
m 
m 



m 
m 



m 
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SCANNING For OCCURRENCE OF A STRING CSCAN) 



* SCAN <STRING> 



• 
• 



• 




* SgAN <M> '<STRING> 



...^ AS ABqvE* EXCEPT jHAt T^^E SCAN BEGINS AT SEQuEnCE 
NUM8IR <M>, 



* ;SeAN;<M>* <N> <STRINQ> 



r--: A? ab°Ve' iEXce^t thaT the Scanning stops after sequence 

NUMBER <N>i 



* SeAN <FltE'pNAME> <STRlNG> 



T^^E RltE <FIlE-NAME> 
RecQRd in which <STRING> 
TEUETyPEwRITERf 



Is SCANNED FOR <STRInS>. EVERY 

Occurs is typed on the 



* ;SCAN <FIUE-NAME> <M> <STRlNG> 



AS ABOVE, Except, THE scan begins at record number <m>. 



i 



• 

• 
• 






c 



• 






^^ PAGE 3? 

UN:.'., :: _ . _ 

* SCAN <FILE-NAME> <H>* <N> <STRlNS> 

- ^i ■.■ '■- ■ ■ ' • ' 

vAS ABOVE^ EXCEPT tHAJ tHE SCAN STOPS AFtER THE <N>-tH 

Record r 



il 

m 



EXAMPLESl 



?* SCAN LIBRARY/FILE "TABLE OF C0NTENTS«?3* 

■wait... 

' 11% table of contents . 

qsjx table of contents , 

table of contents . 

table of contents . 



99 J % 

273 j% 

274 a 



TABLE OF CONTNETS 
TABLE OF CONTENTS 



readdata 

readdata 

writedata 

v^ritedata 

date 

date 



•87®0J* SCAN 1 .printer, .LlNE,«- 
WAlt.>, "'. --■^ ^- -^■'- ' • 

^^^ lOOJ FILE printers (2>-J53« - 

■101 «* SCAN*. 
Wat t ■ • 

^2400! WRITE CI-INE# F» LISTa) f 

V 2401$* SCAN*- 

WAIT.V, 

EOF NO STRING 

■087©0' 



• 
• 



• 



m 
m 






( *■■■; 



# 
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• 



RECORD FORMATING CEOlT) 



c 

i 
i 



RECORDS MAY BE FqrmATED BY THE FO^lqWInS CQnSTRUCTSI 



* EDIT <M>/ <N>: <F> 



• 






rED-ITS EACH RECORD Frqh SEQUENCE nUmBER <m> To<n> 
ACGORDlfsjG TO 1^^ FQRMAt RECORD w^T^^ SEQUENCE NUMBER <F>* 



i THE Result of the edit is that e^ch Recobo becomes 

IDInTICAU with the FORMAT RECORD E5<CEpT WHERE THERE IS A «#•♦ 

OR; HgM, character In format record* each w«!« Is rEpuaced By 

THE- NEXT CHARACTER QF THE InPUT RECORD. EACH ♦'#'» SkIPS THE^ 
NEXT character OF tHE InPUT RECORD. 



*^COlt ICHO ON 



*^E0IT' ECHO OFF 



*<'EDIT ECHO 



^r THE MOpIFlEO RecO^dS WILt BE TYPed ON THE TeLeTYPe IF 
THE. EDIT ECHO Is ON. CIt Is InItIAL^Y 0FF») tHE ABQVE 
COMMANDS AREiUSED TO SeT TH£ eCHQ ANq TO PRINT ITS CURRgNT 
SETTING, IT SETTING MAy BE REVERSED FOR A COMMAND By 
PREFlXl^NG THE EDIT wItH A -» (E.G. *• EOU 200*800J2f) 



EXAMPWEJ 



l0dS1234567890<- 

200JABG0EFGHIJK*- 
300! ?»§.,.§§, THIS IS THE 
ifOOl* '•EDIT 100^ 200J300* 
10O« t23,.,45, THIS IS THE 
200; ABC... OE. THIS IS THE 



WAY THE LINE ENDS . , , P##P^P* 

Way THE LINE ENDS, .,690 
WAY THE LliNE^ENOS««fFIJK = 



; ( : ■ ,. > 



c 



• 
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RESEQuENCInS RECORD NUMBERS (RESEQ) 



FIb€. SEQUENCE NUMBERS MAY BE MODIFIEO BY T^E FOtUOWlNG 
CONSTRUCTS i 



* RESEG 



RESEQUENceS THE FILE bY THe CURRENT INCREMENT cOUNTeR, 



* RESEQ <I> 



.: SETS THEc INCREMENT COUNTER TO <I> aNq RESEQUENCES. 
* RESEQ <M>* <N> 



• 



i Resequences the seQUeNce numbeRs <m> thru <n> b^ the ■< 
Cj^rrint Increment counter, the first SEQyENCE number is <m>« 



* RESEQ <M>> <N>* <K> 



• 



AS ABOVE, EXCEPT THAT T^E FIRSj SEQUENCE NUMBER IS <K>. 



* RESEQ <M>*<N>> <K>* <I> 



As ABOVE, EXCEPT THE INCREMENT Is SEt TO <I> FIRgT* 



EXAMPLES: 



i .895;* RESEQ«- 

: 323«* RESEQ lOO«- 

32300J 



m 



# 
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• 
• 



# 



• 



DELETION OP-RECORDS (DELETE) 



RECORDS MAY BE OElEjED FROM A F^E BY ThE FOLLOWiNq 

constructs; 



*■ DELETE <Mi» 



' DELETES CARD IMAGE <M>, 



* DELETE <M» <N> 



• 



V DELETES CARD IMAGES <M> THROUGH <N>. 

■.,.':■ i • ■■ i •' 

* DELETE 

DELETES THE CURRENT CARD. 
EXAMPLES; 



340o;* DELETE aaoo*- 

3300; 

2tOOJ* DELETE 1500^ + 3;* LiST 1400*2000*- 
14G0; BEGIN 
19001 GO To ERROR ' 
^ 2oeo«^ END ; 

■ ^-2i©0*_ '' ^ ^ i 

2 too;* 2000 <- 
20i0;' END ; 
00002000 ;*DELETE«- 



m 
m 



m 
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OPERATIONAL COMMANDS 



m 






* « 



# 



.. ,•,".. . . '. ' '"' , „ ,.. PAGE ^2 

SET THE INCREMENT COUNTER (INC) 

• - TRE 'INCREMENT COUNTER MAY BE SET BY ThE CONSTRUCT "* iNC", 

-- * INC <N> 

- V i THIS CONSTRUCT SETS THE iNCRgMENT COUNTER TO <N>, 

*:.INC-- 

THIS CONSTRUCT PRINTS THE CURRENT VA^Ue, 

■'/'■-: 7, ., ■ ■.,,-.,.■ j -. ] ;. 

• EXAMPLES! ■ 
i008BEGIN<■ 

200: INTEGER I* -J#- K ■;* ■ >■ '^■^^'' -■ - <■ '-^ ' ' 
300S* INC 3* 
300» BOOLEAN B ; <■ 
3®3: REAL X* Y# I Or 
306 5 - 






• 



# 



NON-TELETYPEWRITER CHARACTERS (PERCENT) 



« 

i 
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• 



• 

m 



Special, CHARACTERS on the bssoo but nqT available on the 
tEuetypEwRIte^^R keyboard (Including t^e question mark »?'0 may be 

I INSERTED I>jTg r/c MaI,^TaInED FRES bV THE "* pErcEnT" ConSTrUcT, 

• * -percent on ■ ■■ - ■■■ ' ^ 



* percent off 



* percent 



THE ♦•* PIRCENT" constructs ALUOW A USER TO INPUT THE 

special reserved characters (I.e. LEFT-aRROW^ neq> lss* 

GEQ» GtR* LEQ# and ■?). THE ABQvE COMMANDS ARE usED TO SET 
The option and to print its current SsTTINGt WHEN THE 
PERCENT OPTION IS ON, InPUT FROM THE TELETYPEWRITER IS 
SCANNED FOR SPECIAL CHaRACtER PAlRst IF A PAIR 1$ FqunD It 
is REPLACED BY THE SInG|^E CHARACTER AS FqlloWSJ 



charactcis PAIR Internal character 







«• 


* (LEFT ARROW) 


fs 


/ (NEQ) 


%(. 


< (LSS) 


%) 


> <6TR) 


%t 


i (LEQ) 


%} 


2: (GEQ) 


%% 


? (QUESTION MARK) 


%* 


* (STAR) (1ST CHR 



ONLY) • 



A "%" FOLLOWED BY ANY OTHER CHARACTER REMAINS AS ISt 
WHEN THE PERCENT OPTION IS ON* THE TRANSLATION TAKES PLACE 
iMMEDIATfLY* HENCE ONLY ONE BACKSPACE (sHIFT 7) IS NEEDED, 



EXAMPLES: 

lOCJ* PERCENT OFF* 



# 



• 
# 
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c 

i 
i 



•1C)05»S% COMPIUE ,.. %a %( %A«- 

12001* PERCENT ON* 

(200:%% COMPILE .t. %=» *( XA*- 

300«* LIST*- 

10081% COMPILE ♦.» %a %( %A 

200S? COMPILE ».. X < «A 

300 J. 



: NOTE THAT ON THE Ti-LETYPwRlTER THE CHARACTERS "X" AND 
'<" WOULD HAVE BEEN TYPED AS A "$", 









• 



r ... . [■ 







• 
• 
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R/C VERB RENAMING CREPtACE) 



R/c veRSs may Be hepi,aced by other woros through the 

CONSTRUCT "* REPlACE"t 



* REPLACE <A>!<8> 



it 

m 
m 
m 
m 



THE REPLACE VERB RENAMES THE VERS <A> WITH THE WQRD <B>« 



EXAMPLES} 



i* REPLACE LISTSTYPE* 

«* REPLACE INLINEUN*- 

I* REPLACE REPLACE:R«. 

»* R CHANGE?C«- 



• 
• 



• 






ill • 



» • 



# 



# 
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AUTOMATIC FIRST CHARACTER PLACEMENT (TAB) 



R/C USERS MAY INITIALLY ( AUTOMAT ICALLy) -PRE-PQSITION THE 
PRINT BALL AT ANY COLUMN BY USE OF THE "* TAB" CONSTRUCT, 



* TAB <H> 

■ nt ■'; ip «p.M' , ^ «• flu 



SETS UP AUTOMATIC INDENTING TO POSITION <N>* WHERE 1 
LEQ'<N> LEQ 54, ■''•' ' 



*'TAB ♦<N> 



* TAB -<N> 



• 



• 
• 



ADJUSTS THE Tab aMount by the Value of <n>, 

'\ ■ - . ■ -. 

♦TAB ON 

_ urn \--mmm «» w 
. I :■■■■. ■ 

* TAB OFF 

* TAB- 



• 

• 



; -tHE TAB OPtION PERmItS j^E. u^EI^ ^BY SEjtING jHE OPtION 
OFF) TO SURPRESS THE TAB SPACiNG ON Th£ TELETYPEWRITER, ThE 
AUTOMATIC Ir^DENTlNG STIl,l APPLIES To THE RECORDS CREATED, 
THE LAST CONSTRUCT PRINTS BQtH tHE sETTING OF T^E OPTION AND 
THE TAI VALUE, f 



EXAMPLES 



4500J* 
45dOJ 



TAB 5«- 
■ BEGIN*" 



1 ' ' J J 



'.:) 



e 
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4600 » 
4600? 
'4700 J 
4800 J 
4800: 



* TAB + 2*- 

K != K + OELTAK }*- 
* TAB * 2^END ; «- 

* Tab 1* 



• 
• 



• 
• 



m 
# 

• 
• 



* ' 






m 
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SETTING THE SAVE FACTOR (SAVE) 



THEN SAVE FACTOR OF A DiSK FILE IS THE NUMBER OF DAYS AFTER 
ITS Last access bEFqrE it will be considered EXplREOt THE 3ave 
FACTOR FOR A NEW USER IS SET AT 7 DAYS. It MAY BE CHANGED BY j 



* SAVE <N> 

■"-' sets the save factor at <n> days. 
*''save' 



I 



• 



m 
m 
m 
m 






PRINTS THE CURRENT VALUE OF T^E SAvE FACTOR* 



EXAMPLES 



^*~^SaVE IQ* 



I ■ . ■ ! 



• 



■i : J 
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TABULATING (COLUMN) 



• 






* C@LUMN <OPTIONaL STRINQ> 



* COLUMN ON <0PTI0NAL STRING> 



* COLUMN OFF <OPtIONAL STRING> 



* COlUmN <STpl> <STP2> <STp3> <STP4> <OPTl STRInG> 



i 

m 
m 

m 

m 

m 



• 



THE COLUMN VeRb IS USeq TO SET UP COLUMN POSITIONS AND 

Indicate what character is the column character, the first 

FORM PRINTS THE CURRENT SETTInGS, THE SECOND AND THIRD 

fqRms are used To turn the optIqn on qR off. the Fourth 
form sets up from 1 to 4 column positions, any form may set 
the column character, 



WHEN THE OPTION IS ON* EACH OCCURENCE OF THE COLUMN 
CHARACTER IN AN InPUT RECORD CAUSES BlANKS TO 8E INSERTED TO 
THE NEXT HIGHER COLUMN POSITION, 



example: 



• 

• 






JCOLUMN ON "#"/'* COLUMN 10 20 25'COlUMN* 

COLUMN SN # 10 20 25 

80PEN COLUMN/SHOW ALGOL NEW*- 

100SABC«123#XYZ#IJK#789* 

200J* LIST*- 

100«ABC 123 XYZ IJK#789 

200 J 1234567890 i234567890 1234567890 «. 

300' 






* • 



t • 



f 1 
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m 

m 



m 

m 

# 



AUXILIARY COMMANDS 






• 






c 



• 
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• 
• 



MESSAGES TO-'QtHERS (MAR) 



MESSAGES MAY BE RECEIVED FROM* AND SENT TO* OfHER USERS OF^ 
R/C BY THl "* MaIU" verb OEScRIbED BEUQW. i 



* -MAIL 



■ THIS LISTS THE M^JL SeNT TO YOu^ a^D ^EMOVES IT FROM 
YOUR "MAIL^BOX"* 



* MAIL TO <USERCQDE>I MESSAGE 



THIs ADOS YQuR MESSAGE jO THE <USERCODE>"S MAIL* 



EXAMPLES! 



/J* MAIL* 

PLEASE SEE ME wHEN YOU SET A CHANCE'BALDwIN 

THERE sWILL NOT BE ANY REMOTE TIMe lO/aA/rCSYSTEM 

?* MAIL TO BALDWINSMY OFFICE- lOAM- FRIDAY* 



m 



m 
m 

m 



(' -. ■ ) I 






• 



I • 



• • 



e 
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• 



HOSf< TO DETACH YOURSELF FRQM R/C (END) 



THREE METHODS A«E aVaILabIE TO TH£ USER WHEN HE WISHES TO 
MAKE AN EXIT FROM R/CS 



* END 



• 

• 
• 



( 1 



• 



* END <X> 



* EiO OS 



Run 



THE FIRST CONSTRUCT DETACHES THE USeR FROM R/G,' 



THE SECOND CONSTRUCT CAUSES R/C Tq REmEmBER* FRqm ONE 
TO' T^E NEXT/ tHE VALUES OF tHE OPTIONS AND THEiEFFECTS 



• 
• 

• 



* Replace" veRb^ 



0F> the 

GENERATE t^I S LAstING EFFECTt 

Character string. 



the "* END" construct DOES NOT 
<X> DENOTES ANY ALPHANUMERIC 



•THE THIRD CONSTRUCT AtLO^S A USER Tq EnD WITHqUT 
ClOsInG the open FIlE. R/C REMEMBERS T^E FIlE STRUCTURE FOR 

THE -Next time. how£VeR the file should not be accessed bY 

ANY OfHER program UNtIL ^T Is ClOsED USING R/C, t^IS fORM 
CAN SE USeo WHeN the FIUe EdHINg IS SPLIT OVgR MORe ThAN 
ONE running of R/C. 



EXAMPLES! 



!■*• END* 

G0OD^ Bye 



• 



' ' ^J'-eSAJ* END X*- 

^WAITV., 

■GOOD BYE 



892;* END DS* 
GOOD BYE 



# 
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LEARNInG'ABOUT R/C ON THE tELETYPWRItER (TEACH) 



TWE-^ ^TEACH VERB ALLOCS A USER AT THE TElETyPwRHER TO uEARN 
ABOUT tM£ R/C vERis AND sPECIFICalIY WHAt VERBs HE MAY USE, • '^ 



♦-TKACH 



t«IS LISTS THE VERBS THAj YOu ARE PERMITTED TO USE, 
THE j,IST REFLECTS THE USE OF REPLACE QN A^Y qF THE VERBS, 



c 

i 
i 
i 
i 
i 



m 
m 



* TEACH <VER8> 



Ml«t «•«» W«f 



■ - ■ THIS LiSTS THE SYNTAX AND SEMANTICS QF THE RESERVED 
WORD <VERB>. 



m 
• 



EXAMPUESs 



• 



!* TEACH SAVE* 

* SAVE SN$ 

SETS THE SAVE FACTOR AT $N$ DAYS, 

* SAVE 

PRINTS THE'CURRENT VALUE OF THE SAVE FACTOR. 



12197GJ* TEACH* 
THE VALID REQUESTS AREl 
EXECUTE DITTO I iCOPY 
SAVE .1 RESEQ 
COLUMN SCAN 
LIST OPEN 



PUNCH 
LISTING 
MAIL 
FOR SYNTAX Op A VeR8 Ce.G. TAB). 

* TEACH VERS. (EfG. * TEACH TAB) 
121970 « 



IN 


ZIP 


c 


EDIT 


PRINT 


DELETE 


CLOSE 


COMPILE 


INC 


TAB 


PERCENT 


QUICK 


TEACH 


REMOVE 


REPLACE 


END 


G. TAe)# 


input: 







• 
• 



.NOTE THAT THE USE OF THE REPLACE VERB CFOr INLINE AND 
CHANGE) Is REFLECTED BY THE TEACH VERB* 



♦ « 



# 



II 
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■> ^ 



• 

• 



MACHO VERB 



• 
• 
• 



• 



i •■ - i 



• 
• 



o 

m 



c 
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MACRO (EXECUTE) 



• 



THE EXECUTE VERB GIVES R/C USERS A SIMPLE MACRO ^CAPABIuItYV' 
*iEXECUTE <SaURCE> <0PtIONA1, PARAMETER UlST> .i 



• 



r RECORDS ARE READ FROM THE <SOURCE> AND TRE 
THEY caME' from THE TELETYPE. HENcE' THeY M 
COMMANDS. THE <0PTl0NAL PARAMETER lIST>, IF 
eONTAjNS FROM tO 5 PARAMETERS ENCLOSED WiTHiN P 

amDs MAY BE Followed by a repeat factor, each par 

BE A sequence NUMBER* A RELATIVE SEQUENCE NUMBER 
MUMbER* OA FILE PREFIX* A FILE SUFFIX* QR a VERB* 
<SQUICE&. THE PARAMETERS ARE REFERRED TO BY #1* #2* 
THEv REPEAT FACTOR IS AN INTEGER pROM TO 999 AND 
tHE-NUMBER of jl'i^lS TO PERFORM THE ExECutE* IF 
SPECIFIED* IT IS ASSUMED TO BE i. 



* EXECUTE ECHO ON 



AtED AS IF 

AY cONTaIN 

PRESENT, 

arenthesis 

ameter may 

* A RECORD 

WITHIN THE 

• • • * #5f 

INDICATES 
It is NOT 



* El^ECUTE ECHO OFF 



•'EXECUTE ECHO 



-IF THE EXECUTE ECHq IS qn, EACH RECORD WILL BE TyPED ON 
THE 'TELETYPE BEFORE IT Is EXECUTED, IT IS INITIALLY OFF. 
IT -MAY BE REVERSED FqR qnE CqmmAnD BY PREFIXING THE CqmmAnD 
BY^A -, 



* EXECUTE LIBRARY 
♦.EXECUTE LIBRARY 



<name> 



THE EXECUTE LIBRARY FACILITY ALLOWS THE USER TO 



# 






^ ^^ i ■'"■■■ '■ PAGE 50 

ABeREVlATEJ 

-^'EXECUTE <FILE PREFI X>/<MACRO l.IBRARY> CP i»P2*P3*P4 ) 
WITH? 
^ * <FILC PREFIX> Pl»P2*P3*Pft 



' ^ THE <MACRO llBRARY> IS "MACRO" AND ANY OTHER NAME 
OESIgNATED THrU THE * EXECUTE LIBRARY « <nAmE> COMMANDf 



C 
i 
i 
i 



EXAMPLES} 



S* OPEN CfSEATE/MACRQ DATA nEW^^ 
'■ 100J%* OPEN #l/#2 #3 NEW* 
200 S* CLOSE*- 

5* CREATE move/Macro data*- 
'^ - -looii* ditto #i*#2 move* 

' 200S*C10SE* 



: 



* -^5700!* teach CC* 

i»* scan + 1 "$$"«>1 

2'.* DELETE "l 

31? COMPILE SQME/JQB FORTRAN, 

4«? DATA 

5'FILE 6=FILE6, UNIT = PRINTER 
57i0«*l'* INC 10^*EXECUTE CC/MACRO c)@2«- 
WAIT... 

2200 !S$ JOB 
2900?$$ IBJOB 
2840? 



m 
• 






• 



# 



c 



# 



A- 1 



m 



APPENDIX A 
R/C SOURCE TAPE 



R/C RESIDES QN A SYSTEM DUMP TAPE CONTAINING THE FIuES 



1, RCSY94/R0N 

2, TEACHER/0000094 

3, XREF/JONES 



THE FIuEs SHOULD 8E tOADEO USInG THE CONTROL DECKJ 



? L.QAD Fro^^ RC RCSY94/RaN^TEACHER/000009a*XREF/JoNES, 
? ENOf 

RCSY94/R0N IS Th^ SOURCE piLE pOR ThE PROGRAM R/C, JT 
SHOULD BE COMPILED WITH! 



? CiMPlLE R/C WITH ALGOL POR LIBRARY. 

? ALGOL FILE TaPE = ^^CSY94/RQN SERIAL* 

? STACK s 2§6. 

? CORE « 28§0, s 2500 + 100 x MAXUSERS, 

? PRIORITY * 1, 

? DATA 

$ TAPE 

? END, 



99999999 



• 






• 



c 

i 

A- 2 



•WHEN PATCHES ARE ISSUED tHEY s^OUUD BE PLACED APtER ■THE "$ ^ 

TAPE" CARq and R/C SHOULD ^E RECOMPILED* _......_,-. % 

• THE mAXImUm number QF USERS HANDLED BY R/C IS DEFINED TO BE ' ) ' • 

3 IN RCSY94/R0N. TO INCREASE THE NUMBER, A PATCH CARD MUST BE 

^ .ADDED. .-AS AN EXAMPLE* THE FOLLOWING CARD SHOULD BE ADDED TO , f 

w : i INCREASE THE MAXIMUM NUMBER OF USERS TQ(5.. : ; M , # 



DEFINE fMAXUSERS * 5#* MaXUSER s4# } 00002500 



THE: OUTPUT BUFFERS ARE OEFI nED , Tg , BE 56 CHARACTERS I ^^ 

RCSY94/R0N, THEY MAY BE SET AT 28 CHARACTERS USING THE FOLLOWING 

PATCH CARDS! # 

DEFINE CHRSPERBuFFER » 28#, % qr 56 00002600 

•WORdSPIRbUFfER * 5#f % OR 8 00002?00 ^ 

WRDSPERBUFFER a «# I % OR 7 00002800 • 



• TEACHER/0000094 IS AN AUXILIARY FILE USED BY R/C. IT IS • 

ALSO THE USERS REFERENCE MANUAL. THE rrOGraM XrEF/JONES IS 
^ PROVIDED FqR GEnERAtInS t^^ REFERENCE mAnuAl AnO FqR uPDAtInG T^E 

• teacHeR file. cnote* only the Object cOde for xref/jones is • 

Included, the squrce can be qbtaInEd through the cube ^ibrary on 

t 

# 



request,) 

THE FqLLsWING DECK WILL PRODUCE A USERS REFERENCE MANUAL. 

? EXECUTE XREF/JONES. 

7 Flt-E OjSK = TEAChER/0000094, 

? DATA CARD. 

S DISK SIX DOCONLY DOCUMENT FINAL 

99999999 
? END. 

PATCHES TO R/C ANd TH£ TeACheR FUE WRL 8e ISSUED THRU CUBe 
RATHER THAN PATCH DECkS, NEW SyMBOlIC FIj^ES WIlL BE InClUOED QN 
THE CyBE tAPE. tHE sEQu^NCE NUMBERs WHL REMAIN J^t sAME EXCEPt 
In THE PATCHED AREA. 



• 






APPENDIX 8 
R / C USER^S GUIDE 



• 



N „■■ 



• 



i 
i 
i 



• 

• 



• 
• 

• 



m 
m 



* 

* 

* 

* 
* 

* 

* 

* 

* 

* 
* 

* 

* 

* 
* 

* 

* 

* 

* 

* 
* 
* 
* 

* 
* 
* 
* 



<r 7"..".: B* 2 

CHANGE <STRIN6'»1> TO <STRINg-2> 

CHANGE <SEQ NUMBER> <StRInG-1> TO <StRInG-»2> 

ChANqE <START SEQ NUMBER> <END 3EQ NUM8ER> <STRiNq-1> TO <$TRiNg«2> 

CHANGE ECHO ON 

CHANGE ECHO OFF 

CHANGE ECHO 

f-CHANGE <STRING«1> TO <STRING-2> 

-CHANGE <SEq NUMbEr> <STrING"1> TO <STrING-2> 

-CHANGE <START SEQ NUMBER> <END SEQ NUMBER> <STRIN6-1> TO <STRING''2> 

CLOSE 

<OPTIONAL STRING> 

ON <OPTlONAt STRING> 

OFF <OPTlaNAi, STRING> 

<ST0P-1> <sT0P-2> <ST0P-3> <ST0P-4> <0PtI0ANL STRING> 
<OBJECT FIIE-NaMe> 



i 
i 



COLUMN 
COLUMN 
COLUMN 
COLUMN 

CoHpILE 

COMPILE <OBjECt FIlE-NAME> <CaMPlLER> 

COPY <FILE»NaME> 

<file-name> <START 
<FILE-NAME3» <start 
$(FIle-name^ merge 



COPY 
COPY 
COPY 
COPY 
COPY 

COPY 
-COPY 



RECORD 
RECORD 



NUMBER> 
NgHBER> 



<END RECORD NuMBER> 



i 
m 



overite on 
overite off 
overite 
<file-name> 



-COPY 
-COPY 
-COPY 



<file-nAme> 

<FlLE*NAME;i 

<file-name> 



NuMBER> 

NUMBe;R> <e;NO ^E^OI^C) NUMBeR> 



<S-rARx RECORD 

<start Record 

MERGE 
DELETE <SEQ NUMBER> 
DE|_ETE <START SEq nUmBER> <EnD SEQ nUmB£R> 

delete 

ditto <SEQ NUM8ER> 

ditto <STARt SEQ NUM8ER> «end seq NUMBER> 

ditto overite on 

DITTO overite OFF 

ditto overite 

-ditto <seq nUm8ER> 

•oitto <start sEq nuhber> <end seq number> 

ditto <seQ numbeR> move 

DITTO <STARt SE© NUMBER> <END sEQ NUMBER> MOvE 

edit <START SeQ NUMeg-R> <eNd S^Q NUMeER>s<pORMAT Se^ NUMgER> 

EDIT ECHO ON 



• 



OFF 



EDIT ECHO 
EDIT ECHO 
-EDIT <STARt 

* END 

* END <X> 

* END DS 

* Execute 
*-execute 

* Execute 

* EXECUTE 

* EXECUTE 

* EXECUTE 



SEQ NUMBER> lEND sEQ NUMB£R> }<FORmAt sEQ NUNBER> 



<SOURCE> 
<SOURCE> 
ECHO ON 
ECHO OFF 
ECHO 
LIBRARY 



<0PTI0NAL 
<0PTI0NAL 



PARAMETER 
PARAMETER 



LIST> 
LIST> 



a <NAME> 



II 



• 

• 

• 



* 
* 
* 

* 

* 
* 

* 

* 
Kb 
* 
* 

* 

* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 

* 
* 

* 
* 

* 
* 
* 
* 

* 
* 

* 

* 



■ r \ 



B- 3 



EXECUTE 'UfBRARY ; i 
INC <INCREMENT> • 
INC^^ ' ■■' ■ ^ ■ 
INLINE <SEQ NUMBER> 
INLINE xSEQ lMyMBER>' i 
INLINE <SEQ NU>r8ER> R 
INLINE <SE'Q NUMBER > D 

Inline 

INLINE^ I ■ '-"'i 
INLINE R ruii'. 
INLINE D ■; 

INLINE ECHO ON ' 
INLINE ECHO OPF 
INLINE ECHO ■?;']:.' 
"INLINE <SEQ NUM8ER> 
-INLINE <SE» NyMBER> I 
-INLINE <SEQ' NUM8ER> R 
-INLINE <SEQ NUMBER> 
-INLINE 

-INLINE I ^ - ■ 

-INLINE R. 
-INLINE D ' :ii 

LIST^' ■ ^:--i ' -' 
LIST <FILE-NaME> -: 
LIST-<FILE-NAME> 1^0 

listu<file-name> <START 

LIST <PIlE-NAmE> <START 

LIST <SEQ NUMBER> 

LIST <START SEQ nUm8ER> 

LISTING 

LISTING 



i 
i 
i 



( I, 



• 

m 



RecQRq num8e:R> <: 

RECORD NUm8ER> <EnO RECORD NUMBER> 



<EnO SEQ NUm8ER> 
<FILE-TYPE^ <SEGMENT> <Law REL ADDR> <HIGH RE^ ADDR> 
<FILE''TYpE> ERRORS 



LISTING i 

MAIL ■■■ - ■ ' ^ '■■""^' 

MAIL TO <USER*CODE>s <MESSaGE> 

OPEN 

OPEN 

OPEN 

PERCENT 

PERCENT 



<FILE-NAME> 
<FlLE-NAME> 

<FlLE-NAHgf- 
ON -•■:■■ 
OFF 



<FlLE-TYPE> NEW 

<file-type> Old 
<file-type> 



N I 



PERCENT- '• - i^ ■■ 
PRINT'<|0ENT»1> 
PRINT <lOENT-l> 
PRInT •<IDENT*.l>' 



SEQ NUm8ER> 
NUMBER> 



<I0EnT*2>' '■ 

DOUBLE -• 
<IDKnT*2> <START 

PRINT '<I0ENT-1> DOUBLE <STARt SE< 

PRl|^TMlDENT»l!>-<IOEHT*2>r<START SEq nMMBER> <EnD SEq Ny'^8ER> 
PRINT '<IDENT^l'>^ DOUBLE KSTARt SEQ NUMBER> <EnO SEQ NuMBER> 

<IDENT«?l>' <IDENT-2> 

<IOENT*"i> ><IDENT-2> <START SEQ NUM8ER> 

<IDe;NT-1'> <I:0eNT*2> <START SeQ NUMBeR> <eND SeQ NUMBeR> 



PUNcrt 
Punch 

PUNCH 

QUICK ' i 

QUICK <FILEtNAME>. i 
QUICK. <FILE-NAME> NO 
QUICK. <FIUE-NAME> <START 



RECORD NUMBER> 



• 



c» 



• •''» fr 



• 
• 



• 
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* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 
* 

* 
* 

*■ 
*■ 

■ 
*' 

* 
* 
* 

* 

* 

* 
lit 
* 



QUICK <FILE-nAmE> <START RECORD nUmBER> <EnD RECoRO NUMeER> 

QUICK <SEQ NUMBCR> 

QUICK <STARTSeQ NUMbER> <END SEQ NUM8ER> 

remove <file-name> 

Replace <old veR8>' : <new verb> 

RESEQ <INCREMENT>- 

RESEQ <ST&RT SEQ NUMBER> s^END SEQ nUMBER> 

REsEQv<STARt SE<S NUMBER> <EnD sEQ NUM8ER> 

rESEO <STArT SEQ N'#MbEr> <END SEQ NUMBEr> 

SAVE <SAVE^FACTOR IN OAyS> 

SAVE^ 

SCAN '<STRING> 

SCAN^<START SEQ .NUMB£R> <STRING> 

<STA|?T SEQ (s^UmBER> <EnO S£Q nUmBER> <STRInG> 

<FlUE*NAMfi <STRING> 

<FILE''NaME> <STarT rECOrD NUMbER> <STrING> 



€ 

i 

i 
i 



<nEw start seq number> 

<NEW ,, NUMBEr> <INCrEMENT> 



Scan 

SCAN 

Scan ., ^ _ ,_ „_„ _.^^ 

SCAN ^'?PIlE-NAME> <stARt RECQRD NUM8ER> <EnO RECORD NuMBER> <stRInG> 
SCAN'^-^'' ■ -^-.V ■■■ 
SCAN <START SE© •.NUH^BER> 
SCAN •<START- sEQ NUMBER> 

Scan '<filE'-name* 

SCAN '<f IlE-NAME> <START 

ScaN><FILE«'NaME> <STarT 

SCAN '■<STaiNS>^'''^ I 

<STaRT: S£Q numbeR> 



i 



cEND SEQ NUMBER> 



RECORD NUMBER> 
rECOrO NUMbEr> 



<END rEcOrD NUMbEr> 



■scaw 
'Scan 

'SCAN 

■Scan 

•SCAN 

'Scan 

'SCAN 

Scan 

SCAN 



- ..^ <STRlN6> 
<&TARt' SEQ Ny^^BER> <EnD SEQ NuMBER> <StRInG> 

<FtLE«NAME* <STRINg> < ' 

<FIlE.,nAmE> <STarT record nUmBER> <STrInG> 

<file*nawe> <start record number> <end record number> <stRIn6> 



-<START sEQ NU'MBER> 

.<STaRT seQ nuwbeR> 

<FILE-NAME> 



<ENd SeQ NUMbER> 



• 



■ScAN \<FILe-NAMe> <START RecO^^D NuM8eR> 

-Scan <^f"iLE-NAME> <start record nUmber> <eno record nUM8ER> 

TAB <COLUMN NUNBER> 

Tab * <OFF-SETrNUMBER> 

TAB. • .<OFF^SET :::NUMBER> 

TA8.0N V" ;^ 

TAB^'OFF 

TAB^ ^- ■-■ ■ . ( : , c; ,- s : . , . ■■ , ; 

TEACW.-^ 

TEACH <VER8> 

ZIP 

ZIP <SCRATCH FItE*NAME> 



• 






• 



# 



m 
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MACRO v£RB, * V r i ^ 

MACRO (EXECUTE) 
APPENDIX. A. . t= «.v. 
R/C. SOURCE. TAPE . . 

APPENDIXES. ...:*;. , # . • , , , . . , . . 
R/C USER-S GUIDE. .. .......,., 
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PAGE 
PAGE 
PAGE 
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1 

2 

3 
3 
5 
5 
7 

a 
a 

8 

9 

10 

II 
i4 

15 

1-^8^ ■■ 

l9 

20 

21 

22 

23 : 

2H 

25 

26 

28 

30 
33 
34 

36 

38 

39 

40 

41 
42 

43 

45 
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48 

49 

■50^ 
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! f. 'i I f r 
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Q :,,1,/;" A r 
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?C0MPIUE R/C ALGOL LIBRARY 

# 

PACKET 41 

INPUT 9 CARDS FROM CRA 

# TIME IS-lie 

DATE 76194 MONDAY* 07/12/76 



• 



*** MESSAGE CF THE DAY *** 



WELCOME TC B5700 TIME SHARING. 
MAY YOUR DAtA BE DEPENDABLE AND YOUR PROGRAMS PROVEN* 
# FROM THE STAFF OF THE BIG BAD BURROUGHS, 






*** BURROUGHS B570O TSMCP MARK XVI.O»00 AND INTRINSICS MARK XVI.O-OO *** H 

m 



?C0MPILE R/C ALGOU LIBRARY 
:# 7ALG0L STACK* 1024 

?ALGOL FILE TaPE* RCSY94/Z100006 DJSK SERIaL 
:- ? STACKS 256 

# ? C0RE= 3300 

7 DATA CARD 

AJALGOL/Rs 2 80J 1548 06/23/76 

# CDA in CARD OAIALGOL/Rs 2 

DKA IN SER RCSY94 ^100006 J ALGOL/R" 2 
P8DCC42 OUT Ou lInE » AlGOL/R= 2 

# DKA CUT Rt)M R CjALGOL/R- 2 

R/C REMOVED 

R/C/COOOOOOs 360 SLGS--CREATED 07/02/76 AT 00:il«4lS57 

# DKA LOK R C«ALGOL/Hs 2 

DKA REL RCSY94 Z IOOOO6 J ALGOL/R* 2 
PeDCC42 REL on line 4214!ALG0L/R= 2 

# COA REL C4RD OAiAUGOL^Ra 2 



7END, 



alqol/r 

PKT)!iCe4 






• 
• 



• 



'^^^ yi<:2 



_ l^*r»* ,. . :;,,.■■ ;^; ,^, >,.«a,.;^ '.^ „ ^.-Jft*/ ■•.■■- ■'.■■„■■■■•,■■ 'V ' ^ ^,- '■'■-^i.-^^-: .■■■■•''/•'..„•••■ ;^, ; '■ -'•^tf-* 



m 
m. 
m 
m 
m 
m 
m 
m 
:m 
m 
m 



m 
# 



MONDAY^ 07/12/76# 3H8 PM, 



lABEL OOOOOOOOOulNE 00l76l9«?C0MPlLe R/Q AlGOl LIBRARY 

Burroughs 8-5700 augol cowPaeR mark xvi.coo 

.R ■ /C 

SSS9SS3SSSSSSSSS 



R / C -'A mUlTI USER REmOTE/CAHD, 
WRITTEN BY RON BRODy; BURROUGHS CORP,; PAOtI, PA. 215-Nn-4700 X2l9 
BEGIN 



ALGOL /R 



NOVEMBEf^ 18* 

% OR 



DEFINE VERSION = 94# ; 

DEFINE MAXUSERS » e#* MAxUSE« '^ 
DEFINE ChRSPeRBUFFlR = 56#f 

wcrdsperbuffer - 8#* 
v^csperbuffer s 7# ; 

alpha file in twxinput u (maxu5er 



1971, 



START 



28 

* OR 5 

% OR 4 

****** 

+ MAXUSER* 



* * * 
8) ' 



* * * * 



ALPHA FILI OUT TWXQUTPLT U C^aXUSeRS* WORdSPeRBUFFER ) 
DEFINE TWXOUT = T^XQutPUT (STAtIONI* 0)# t 
ARRAY PReTANK [0 » 33* 

BLFFERS CO 8 h«AXUSERS, I MHi } 

DEFjNE Buffer ^sufferu » buffers tusER* bufferui** 

8L0C 5 BUFFER C29]#* 

BUFF CBUFFn = BUFFERS tMAXUSERS* BUFFU* I 
INTEGER aRRaY REAOYQ [U J MaXUSERS] ; 
DEFINE RATTLEINDEX = REAOYQ CMAXUSERS3# ; 
INTEGER USER* 

USER32* 

GLC^K* 

READYQTOP* 

NEXTCLOCK* 
TINK, 

BIGBIRD ; 
BOOLEAN GLOBALBOOL ' 
DEFINE 

TANKEDOUTPUT * GLOBALBOOL , 

OUTPUTREADY s { GlOBAlBOUL)*' 

Q * GLOBALBQCL . U6 I U#* 

LOCKED = GLOBALBOOL . ^5 i 

XlCCkED « GLOBALBOOL • C^4 J 

YLOCKED s GLOBALBOOL • 

QINPUT a GLQBALBLOL 

ERRTOG a GLOBALBOOL 
ARRAY iNpUT CO » 143 ; 
DEFINE TO = INPUT C103»* 

Tl »* INPUT CU3«* 

TN 9 INPUT £123** 

FREEHEAD « INPUT C133»* 

MAXFREEHEAU = INPUT CU3# 
DEFINE CHRS s BUFFER C303## 

NCHRS ' BUFFER C313#* 

USERCDDEI = BUFFER [32]*, 

STATIONI rs BUFFER C333#' 



[47 J l3#* 



C43 
[42 : 
CI : U# 



i3#* 

13#* 
lJ#* 



00000500 




0000 


ooociooo 




0000 


00001500 




0000 


OF SEGMENT 


********** 


00002000 




0000 


00002500 




0000 


00002600 




0000 


00002700 




0000 


00002600 




0000 


00003000 




0000 


00003500 




0000 


00004000 




0004 


00008500 




0007 


00009500 




0007 


oooioooo 




0009 


oooioaoo 




0011 


00010300 




0011 


00010400 




oou 


O0OUOOO 




0011 


00011500 




0013 


00012000 




oou 


00012200 




0013 


OO01300C 




0013 


00013500 




0013 


00014500 




0013 


00015000 




0013 


00016000 




0013 


00016300 




0013 


00017000 




0013 


00017010 




0013 


00017020 




0013 


00017100 




0013 


00017200 




0013 


00017210 




0013 


00017220 




0013 


00017300 




0013 


00017500 




OOU 


00018000 




0013 


00018100 




0014 


00018200 




0014 


00018300 




0014 


06018400 




0014 


0001850C 




0014 


00019000 




0014 


O0Q191OO 




0014 


00019500 




0014 


00020000 




0014 



c 

i 
i 
i 

i 
i 
i 
i 
i 



• 
• 



m 



• 



BREAKI * BUFFER C343»* 
AENORMALEND » BUFFER t35]#* 
INREADYQ « BUFFER t363#* 
FIRStCHANCE » BUFFER i:373#* 
ILFCRI » BUFFER [38]»* 
TRANSLATEI = BUFFER C393*# 



HEADI 

TAILI 
SLOTI 

BLCCK 

CCUNTI 



BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
= BUFFER 






93 ; 

: 32 



X MAXUSERS ' J,* J 2553 ; 

Q}»f 

13«* 



ALPHA ARRAY RECORD CO ! 
REAL ARRAY LINKLISTS CO 
DEFINE TIMEX - TIME (1)#* 

FIRST ' LlNKtlSTij CU5ER32* 

LAST s LINKLISTS CUSER32^ 

LEFT3l0f « C35 : 53#» 

RIGHtSIOE a t^O ! 83«* 

UINKLISTS CCTINK «- LLl), LEFTSIDE ♦ USER32, T INK.KIGHTSXOE 3# , 

s = ti » 2n#' 

27 » 21** 
? 13]#' 
S 35 5 13#* 
s 133»# 

; 35 > 13#» 
= 2097151#, 



SF « 1 » 
F = t22 
FF = 22 
T e C35 
IF « 35 
INFINITY 



%MAXI«UM SEQUENCE NUMBER « 2*2l-lt 
f% a 2*13-1, 



FIMTY ? 2097150** 
MAxFILELENGtH s ai9i# 
DEFINE WOOIFY (MODIFY!) = 

MODIFIED I* MOOIFIED OR TWO C t MODIFY l) • LEFTSIDE )# / 
DEFINE WAITFLAG " BOOL » Ci»7 « U#* WAITING a (BOOL)*^ 
INLINETOG s BOOL . Cft6 J %}», 
EXTRaLFCR » 8QQL . C45 5 13*' 
EXECUTEECHO = bOCL , C^a I 13*# 

J 



TRANSLATING s BOOL 
XECHO s BOOL « C42 



X}»i 



NUWl s 
NUf^g ■ 
NUM3 s 
NUM4 » 
EMPTY! 
EMPTY2 
EM,PTY3 
EMPTY^ 
NCSTaR « 
MCREINPUT 



BOOL . 
BOOL , 

BOOL « 
BOOL , 

•^ BOOL 
» BOOL 
«? BOOL 
- BOOL 
* BOOL 



C36 t 
[34 » 
[32 J 
[30 : 
C36 
L34 
i;32 
t3o 
[29 



BOOL 



[43 
13## 
23«# 
2]»' 
23#* 
23<(» 
« 13#' 
13#* 
13*' 
U** 
13*' 
t 13*' 



% INITIALLY ON 



i 
t 
t 
» 

C23 



NCTPiRSTlNPUT s bOOL , C22 « U*' 
INLINEECHO * BOOt , tSl S 13** 
CHANQEEgHO » BOOL , t20 i l3*» 
EDITeCH|3 s BOOL i C19 « U*' 
CCPYCLOBBER ' BOOL • C 18 I U*' 
OlTToCLOBBER » BOOL • C17 J 13*' 
TEMPtOG » BOOL « tl6 J U*' 
TABON -9 bOOL . Cl5 I n*' 
COLUMNS s BOOL » C12 f U#' 



X INITIALLY ON 



% INITIALLY ON 



00020500 

06020600 

00020700 

00020710 

00020800 

00020900 

00021000 

0002U00 

00021500 

00022000 

00022100 

000ii2500 

00023000 

00023500 

00023600 

00023800 

00023900 

00024000 

06024500 

00025000 

00025500 

00026000 

00026500 

00027000 

00027500 

00028000 

00028500 

00029000 

00029010 

0002950U 

00029700 

00029800 

00030500 

00031000 

00031500 

00032000 

000325qo 

00033000 

00035000 
00035500 
00036000 
00036500 
00037500 
00038000 
00038500 
00039000 
06039500 
00042300 
00043000 
00043010 
00043020 
00043030 
00043040 
00043090 

00043Q60 
00043070 
000<»3100 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0014 
0014 
0014 
0014 
OOU 
0014 
0014 
0014 
OOH 
0014 
0014 
0014 
0014 
0016 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0030 
0030 
0020 
0020 
0020 
0020 

ooao 

0020 
0020 
0020 
0020 

002o 
0020 

0020 
OOgO 
0020 
0020 
0020 
0020 
0020 

0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 
0020 






m 

m 



• 



J ;eS»» * 



#'• 






m 
m 
m 
m 
m 
m 

# 



iNCRoER » 800U » CI « 

IMTIALBQQL « BOOLEAN 
ARRAY CONTROLS CO I 90] 
DEFINE VN 

STRINGI 

STRINGID 

STRINGILEFT 

STRINGIREPEAT 

STRINGJ 

STRlNGJe 

stringjleft 

stringjrePeat 

character 

maxcolstop 

cclstqps 

C0LST0P4 
CCLST0P3 
CCLST0Pi2 
CGLSTOPl 

CCLSTOP CCOLSTQPn 
RELftTIVENUMBER 
STRING 
REAL PaRAMETERC* 
PARAmETERI* 
PARAMETERS' 
PARAMETERS* 
PARAMETIR4* 

USERCOOI* 

STATION* 

PREFIX* 

Suffix* 

macrolibrary * 
boolean modified ; 

INTEGER FIlEINFU* 
TABAMOUNT* 

fileaccess* 
savefactor* 
prewhere* 

XOEX* 

N* 

AT* 

D' 

M* 

iNC* 

I* 

RESETN ; 
BOOLEAN BOOL ^ 
DEFUE COBOLFIlE » BOOLE 

DATaFILE = FILEINFO = 

ALGCLFItE « FILEINFO G 

COMPILER = FIlElNFOf* 

LENSjH » (IF AlGCJLFILE 

halflength-cif algolfi 
fulllength s cif dataf 

HALFFULLLENGTH s (IF D 

cceoL * I*' 

DATA 9 |#* 



u#* 






00043500 




0020 


C"a40O0* 


'♦)# ; 




0@043600 




Qoao 


t 

* 






00043700 




0020 


9 


CONTROLS 


C89]#, 


0004380C 




0022 


S! 


CONTROLS 


Ca8]#* 


00043900 




0022 


9 


CONTROLS 


C87]#* 


00044000 




0022 


m 


CONTROLS 


C863#* 


00044100 




0022 


s 


CONTROLS 


CSS]** 


00044200 




0022 


s 


CONTROLS 


C64]«« 


00044300 




0022 


n 


CONTROLS 


ce33#* 


00044400 




0022 


m 


CONTROLS 


[823j)t* 


00044500 




0022 


% ; 


CONTROLS 


t8l3#* 


00044600 




0022 


m 


CONTROLS 


E803#* 


00044700 




0022 


9 


CONTROLS 


t79}». 


00044800 




0022 


SS 


CONTROLS 


C783#* 


00044900 




0022 


9S 


CONTROLS 


C77]#* 


00045000 




0022 


n 


CONTROLS 


i76}»f 


00045100 




0022 


^% 


CONTROLS 


C753#» 


00045200 




0022 


m 


CONTROLS 


17<*]#* 


00045300 




0022 


■9 


CONTROLS 


C73 + C0LST0P13** 


00045400 




0022 


' M 


CONTROLS 


C733#» 


0§045500 




0022 


a 


CONTROLS 


C303# ; % " CONTROLS [37] 


00046600 




0022 


% 


CONTROLS 


C383 


00046610 




0022 


% 


CONTROLS 


C393 


00046620 




0022 


% 


CONTROLS 


C403 


00046630 




0022 


% 


CONTROLS 


[413 


00046640 




0022 


% 


CONTROLS 


C423 


00046650 




0022 


% 


CONTROLS 


£433 


00046700 




0022 


% 


CONTROLS 


[443 


00046800 




0022 


% 


CONTROLS 


[453 


00046900 




0022 


% 


CONTROLS 


[463 


00047000 




0022 


% 


CONTROLS 


[473 


00047100 




0022 


% 


CONTROLS 


[483 


00047200 




0022 


% 


CONTROLS 


[493 


06047300 




0022 


% 


CONTROLS 


C503 


00047400 




0022 


% 


CONTROLS 


C513 


00047500 




0022 


% 


CONTROLS 


[52 3 


00047600 




0022 


% 


CONTROLS 


C533 


00O477OO 




0022 


% 


CONTROLS 


[543 


06047800 




0022 


% 


CONTROLS 


[553 


00047900 




0022 


% 


CONTROLS 


[563 


06048000 




0022 


% 


CONTROLS 


[573 


00048100 




0022 


% 


CONTROLS 


[583 


00048200 




0022 


% 


CONTROLS 


[593 


00048300 




0022 


% 


CONTROLS 


[603 


00048400 




0022 


% 


CONTROLS 


[613 


00048500 




0022 


% 


CONTROLS 


[623 


00048800 




0022 


AN CFILEINF0)#* 




00048820 




0022 


DATA** 






00048830 




0022 


EQ ALGOL** 




00048840 




0022 








00048850 




0022 


THEN 72 


ELSE IF COBOLFILE THEN 60 ELSE 80)#, 


00048860 




0022 


LE Then 


36 ELSE IF 


COBOLFILE Then 33 ELSE 40)## 


00048870 




0022 


ILE THEN 


80 ELSE 72)», 


00048880 




0022 


atafile 


THEN 40 ELSE 36)#* 


00048890 




0022 








00049600 




0022 








00049610 




0022 



( 

i 
i 
i 
i 
« 
i 



• 
m 

im 

M 

■-# 
• 



ALGOL = 4#* 
XALGOL - 6«, 
FORTRAN s 8## 




Al* A6t « LIBRARY. ALGOL FILC CARDS'** Ai» 
" serial; ALGOL FILE LI NEsLINE/", Al, A6, 

ECJ ("SXGOOD BYESX/;<«-"), 

NCROOM (X8/ »«SORHY,» FULL UP, S^fBYES^*"?* 

USERUN (X8/ "USElSX?? RUN ,#♦♦")* 

STAR ("♦". X79J/» 



DATE CX6, Al# A6# "/" 

A6, "DAY 'S d* 
><AITF ("WAIT..**-")* 



Ai# A$# 



BY 



Al« 



LISTED AT"* 
A6# X62)» 



13* 



12. 



ON 



RATTLE 
TEACH! 
TEACH2 
TEACH3 

BRCKEN 



}* 



(X8* "<<<«■ 
("S/THE VALID VERBS ARE5*-")* 
(7 (Al* A6* X2))* 
(«FQR SYNTAX Qf A VERB 
« VERB. CE,G. * TEACH 
(X8* "SXBHEAKS^*-"} ; 



CE,G, TAB)* 
TAB) ")* 



INPUTJ * TtACHn* 



ON 



DEFINE ONOFF CONOFFl) s ClF ONQFFl THEN 

DEFINE XMAX «= b* * 

ARRAY XARRAY [O'MAXUSEt^' OSXMAX ^ 13 ' H f 

DEFINE 

XSUB s XDEX X i3#* 

XPARAmETERS tXPARAMETERSl] s XARRAY 

XSTART » XARRAY CUSER* XSUB + 53«* 

XUAST = XARRAY [USER* XSUB + 6J#* 

XN s XARRAY [USER* XSUB ♦ 7]#' 

XrEPEaT ' XARRAY tUSER* XSUB + 

XPREFIX = XARRAY LUSER* XSUB * 

XSUFFJX s XaRRAY [USER* XSUB + 

XFILEtYPE s XARRAY CusER* XSUB 

XNChRS 5 XARRAY [USeR* XSUB + 
PROCEDURE PROGRAM * FORWARD ; 
ALPHA PROCEDURE OCTDECIMAL (N* M, F) ; 
VALUE N* F I 
INTEGER N* M* F i 
BEGIN 
ALPHA STREAM RRDCEUUrE OCTDCCX CN* F* Q* T) ; 



ELSE " Off ")# 



000^9620 T 0022 

00049$30 T 0022 

00®^9640 T QQ22 

00049650 T 0022 

00050710 T 0022 

00050720 T 0022 

00050730 T 0022 

00050740 T 0022 

00058000 T 0022 

00058500 T 0024 

00061500 T 0024 

00062000 T 0024 

00064000 T 0024 

00065500 T 0027 

00069500 T 0031 

00070000 T 0034 

00070500 T 0038 

00071500 T 0041 

00072000 T 0047 

START OF SEGMENT 

00072500 T 

00073000 T 

00073600 T 

00073700 T 

00078600 T 

00079000 T 

0007 9300 T 

00079400 T 

0006500U T 

00087000 T 

00087500 T 

00088000 T 

00088500 T 

00089000 T 

00092000 T 
3 IS 128 LONG* 



A********* 



CUSER, XSUB + XPARAMETERSn#, 



9]»* 
103#* 
+ lUO* 
12;)# i 



START 



00097100 
00099600 
00099700 
00099800 
00099810 
00099900 

00100000 

ooiooioo 

00100200 
00100300 
00100400 
O01OO5OO 
00100600 
00100700 
00101000 
00101100 
00101200 
00101300 
09101400 
O01O15OO 
OF SEGMENT 



0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
0047 
NEXT SEG 
0047 
0047 
0047 
0051 
0051 
0051 

0051 
0051 

0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 



i 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
t 



* * * * * in, * * ii 



VAtUE F» Q* T J 

BESIN 
LABEL EXIT I 

01 ?s LOC GCTUECX ; 

Sj {= N ; 

T (Q (DS != F OCT ; JUMP OUT 2 TO EXIT) ; 



c 

i 
i 

i 

SKIP F DB ; DS }5 SET } JUMP OUT TO EXIT) ; . _ ^ 

^ 9 CF (SI t= SI + 2 ; DS »» 2 CHR } DS Js LIT 'V ; OS ?« 2 CHR ; w^vwwv , «vwj 

• DS js LIT "/" ; DS »s 2 CHR ; JUMP OUT 2 TO EXIT) ; 001C3700 T 0008 i 

DI 5- Ol + 7 ; OS IS CHR i JUMP OUT TO EXIT) f 

^ OS «* 8 DEC ; 

• F (Dl ts DI - 7 ; DS l« 6 FILL) I 

EXIT! 

END OCTDECX ; 

• IF F LEQ I THEN 

BEGIN 

:^ N {= N ; 

:• OCTDECIMAL J= OCTDECX CN# F, o* 0) ^ 

END ELSE IF F " 2 THEN 

0CTDECIMAL «s OCTDECX (M» 0, 1, 0) 

• ELSE IF F «; 3 THEN 

ecTDiClMAL »* OCTDECx CN* 1* I* 0) 
ELSE IF F « « THEN 

• OCTDECIMAL '= OCTDECX (M* N* I* I) 

ELSE 

^ OCTDECIMaL »" OCTDECX (M# n ^'^ 47 • n* 0# 1) ; 

• END OCTDECIMAL ^ 



« 



DEFINE OCTDEC COCtOEcU * OCTDECIMAL (OCTDECl, m, O)*, 

• QCTDEX (OCTDEXD s OCTDECIMAL (OCTDEXU M' U#^ O01C5400 T 0051 m 

FIrSTCHAR CFIRSTCHARl) = OCTDECIMAL CO* FIRSTCHARI, 2)#, ' ^ 

MMD0YY * OCTDECIMAL (TlME (5)' M, 3)»* 

• DEC CDECl' DEC2) s QCTDECIMAL CDEC2» DECl' 4)#, 06105700 T 0051 A 

TWO (TWOi) a BOOLEAN COCtDECJMAL CTWOl* M* 5))# i "- - 

• DEFINE SEQUENCE = 

IF algolfile then 
Image c9] i^ qctoec cif n « finity then 99999999 else n) 

• else if cobolfile then 

BEGIN 

^ image to],ci»35) != qctdec cn) ; 

• Image [93 »= suffix i ",«ci»43»53 ; 

END# ; 

• PRQCEByRE STATIONFJX (STATION* I) ; 

VALUE STATION* I i 
REAL STATION ; 

• INTEGER I ; 

BEGIN 
REAL X ; 

• START 

IF I LEQ 4 THEN 

X Is STATUS (STATION* I) 

• ELSE IF I LEQ A THEN 

RELEASE (STATION) 
^ ELSE IF I LEQ 8 THEN 

• BEGIN 



O01C160O 




0000 


00102500 




0000 


00102600 




0000 


00103000 




0000 


0010310C 




0000 


09103200 




0000 


OplC3500 




0004 


00103600 




0005 


00103700 




0008 


00103800 




0010 


00104000 




oou 


00104100 




0012 


00104200 




0013 


0Q104300 




0013 


0Q104400 




0015 


00104500 




0015 


00104600 




0016 


0Q104700 




0017 


00104800 




0019 


00104900 




0020 


00104910 




0022 


00104920 




0025 


00104930 




0027 


00104940 




0029 


00105000 




0031 


ogiosioo 




0032 


00105200 




0036 


S 39 LONG* 


NEXT 5EG 


00105300 




0051 


00105400 




0051 


00105500 




0051 


00105600 




0051 


06105700 




0051 


001C5800 




0051 


00120500 




0051 


00121000 




0051 


00121500 




0051 


00122000 




0051 


0Q122500 




0Q51 


00123000 




0051 


00124000 




0051 


06124500 




0051 


00125500 




0051 


00126000 




0051 


00126500 




0031 


00126600 




005J 


00126700 




0051 


00126800 




0051 


00126900 




0051 


00127000 




0051 


OF SEGMENT 


********** 


00127100 




0000 


00127200 




0000 


00127300 




0003 


00127400 




0005 


00127500 




0006 


00127600 




0010 



i 
i 
i 
i 
« 
i 



m 

m 
m 
m 
m 



m 



SEEK (TWXINPUT CSTATIQN)) f 

X »s STATUS (STATION* 0) * 
END 

ELSE IF I « V THEN 
BESIN 

\^Rlll CTWXQUTPUT (STATION)* NOROOM? i 

RELEASE (STATiON) ; 
END 

ELSE IF I s 10 THEN 
BEGIN 

IF BOOLEAN (STATUS (STATION* 0)),t30Jn OR 
USERCQDEI NEQ STATUS (STATION) THEN 

abnqrmalend Jx I ; 

END ; 
END STATIONFIX ; 

DEFINE CHARGE (CHAHGEl) s STATIONFIX (CHARGEl* 0)#* 
FREEFILE (FHeeFILEI) - STaTIONFIX CFReEFILeI' 3)#* 
UNFREEFlLE ( yNFRELF mEl ) = STATIONFIx ( UNFREEF I LEi * 
FORGET (FORgeTD ' STATIONFIX CfORGETI* 5)«* 
DETACH = STATIONFIX (STATION* 6)», 
ATTACH * STATIONFIX (STATION* ?)#* 
REATTACH s STATIONFIX (STATION* 6)#* 
NOMGREROOM = STATIONFIX (STATION* 9)#* 

CHECK (CHECKl) * STaTIQnFIX (CHEQKI* 10)# ; 

X*************************' 

PROCEDURE OUTPUT i 

BEGIN 
STREA^'. PROCEDURE MOVE (S* D* W* Q) * VaLUE W* C * 



BEGIN 

SI »s S ; 

CI J- D ; 
cs »s w wos ; 
cs t= c CHR ; 

END f'OVE * 
INTEGER USER* 

T* 

SPOT i 
BOOLEAN X ; 
LABEL FAKEOUT, 

NEXT ; 

DEFINE A « INPUT* * 
J!HAR<?E (0) i 

tankedoutput ;» 

n tWDSPERBUFFtRJ {* 
FOR USER »* STEP 1 
BEGIN 

IF COUNTI GtQ THEN 
BEGIN 

IP TlMEl • TIMEX qTR 

GO TO FAKEOUT } 
SPOT l» 
IF REAL 



H)*, 



FALSE ; 

UNTIL 



BIGBIRD OO 



iSO THEN 



HEAoi ; 

(<X l» BOOLEAN (STATUS (STaTIQNI' 
AND BOOLEAN ("fiA")) NEQ THEN 



0)).C22«93) 



BEGIN 

IF x.casjji] 



THEN % BUSY 



0G127625 
06127650 
00127675 
00127700 
OC127800 
00127900 
0ei28000 
00128100 
00128200 
00128300 
00128400 
0012850C 
00128600 
00128700 
00128800 
5 IS 40 LONG* 
00128900 T 
06129000 

00129100 
00129200 
03129300 
00129400 
06129500 
00129600 
0Q129700 
00129800 
00130000 
00130200 
06130400 
START OF SEGMENT 

O0130600 T 
00130800 T 
09131000 T 
00131200 T 
00131400 T 
00131600 T 

00131800 T 

06132200 T 

06132400 T 

00132600 T 

06132800 T 

00133000 T 

00133200 T 

00133400 T 

00133600 T 

OOU3800 T 

00134000 T 

00134200 T 

0013460Q T 

00134800 T 

00135000 T 

06135200 T 

00135400 T 

O01356OO T 

06135800 T 

00136000 T 

00136200 T 



oou 

0014 
0017 
0017 
0018 
0019 
0023 
0026 
0026 
0027 
0027 
0031 

0035 
0037 
0037 
NEXT SeQ 
0051 
0051 

0051 
0031 
0051 
OOSi 
0051 
0051 
0051 

0051 
0051 

oosi 

0051 



i 
i 
i 
i 

t 

f 



0000 
0000 
0000 
0000 
0001 
0001 

0001 
OOOl 

000^ 
OGOl 

ooot 

0001 
OOOl 
OOOjt 
0003 
0004 
00Q6 
0008 
0008 
0009 
0010 

0013 
OOU 
0015 
0019 
0021 
0021 









m 

BEGIN 
• 60 TO FAKEOUT f 



€ 
i 
< 

END ; 

IF REAL CX AND BOOUEAN (10)) NEQ AND NOT X THEN w„*-,t-w , >,v*, 

m WRITE CTWXOUT* BROKEN) i % CLEAR WRITE READY 00137400 T 0026 f 

IF SPOT GEQ THEN 
BEGIN 

• A £03 Ss FREEHEAO ; 

WRITE (lo cTAiui]* 1* A t*n ; 

^ FREEhEAD «= SPOT I 

W END / 

COUNTI »= XOEX Js -i ; 

TIMEI 15 i 

• BREAKI ?« 1 i 

MOREINPUT Js FALSE i 
GO TO NtXT ; 

.# END ; 

IF SPOT GtQ THEN 
BEGIN 

• READ CIO CSP0T3# 30» BUFF 1*1) } 

MOVE (BUFF [BLOCK]* A HI, Q, CHRSPERBUFFER ) ; 
WRITE (TWXOLT* ^vORDSPERBUFFER* A [*]) CFAKEUUT3 ; 

• T IS CHHSPERBUFFER * 

IF BLOCK i« BLOCK + WDSPERBUFFER GEQ 29 THEN 

^ BEGIN 

• BLOCK |:s 1 ; 

A CO] la FREEHEAD * 

^ WRITE (10 [SPOT], I, A [*]) / 

m FREEHEAD 1= SPOT ; 

HEADI »» BUFF CO] ; 
END i 

• END El^E 

BEGIN 

MOVE (BUFFER CU' A tU» 0* CHrSPERBUFFER ) i 

• WRITE (TWXOUT^ >»ORDsPERBuFFER# A C*]) [FAKEOUT^ i 06143400 T 0090 m 

IF bUOC »s BUOC - WCSPERBUFFER LSS 1 THEN ^ 

^ BEGIN 

• COUNT! I* -1 ; 



IF ABnORMALEND GEQ 2 THEN 

ABNURMALEND !s ABNORMALEND + 1 ; 
GO TO NEXT ; 

END ; 

T !» CNKSPERBUFFER i 

MOVE (BuFFERCwOROsP£RBUFFER3*8uFFERCl]#2 9-WOR05PERBUFFER#o)' 

:nd ; 



FAKECUTf 



IF TlMEnsMAX(TlMEI*TlMEX) + T'<6 LSS TN OR NOT QutPUTREADY T^EN 
BEGIN 

TN \* TIMEI ; 

tankedoutput ;b true ; 

END i 

NEXT' 

END ; 

END i 

IF outputreaoy then 

NEXTCUOCK »« CLOCK • TO x (TN - TIMEX - 90) / 150 



00136400 




0022 


00136600 




0022 


00136800 




0023 


00137000 




0024 


00137200 




0024 


00137400 




0026 


06137600 




0031 


00137800 




0032 


00138000 




0032 


00138200 




0034 


00138400 




0040 


00138600 




0041 


00138800 




0041 


00139000 




0044 


O01392OC 




0046 


00139400 




0048 


00139600 




0049 


00139800 




0050 


00140000 




0050 


00140200 




OOSl 


00140400 




0051 


00140600 




0037 


00140800 




0061 


06141000 




0069 


00141200 




0070 


00141400 




0074 


00141600 




0074 


00141800 




0076 


00142000 




0078 


00142200 




0083 


06142400 




0084 


00142600 




0087 


00142800 




0087 


06143000 




0087 


06143200 




0087 


06143400 




0090 


00143600 




0098 


06143800 




0102 


OQ144000 




0103 


00144200 




0105 


00144400 




0107 


00144600 




oui 


0Q144800 




oiu 


00145000 




oiu 


oeH52oo 




0U2 


00145400 




ou$ 


00145600 




0116 


00145800 




0U7 


00146000 




0125 


0gi46200 




0U5 


00146400 




0128 


0C146600 




0129 


00146800 




0129 


00147000 




0130 


00147200 




0130 


00147400 




0U2 


00147600 




0132 



i 

i 
i 



• 






Else 

NEXTCLOCK Js -99 
CHARGE (STATION) / 
END OUTPUT ; 



* * 



■k * 



6 IS 



00147800 T 

oeueooo T 

0P148300 T 

00148400 T 

14b LONG, 



* * * 



PROCEDURE WRITETWX ; 

BEGIN 
INTEGER SfREAM PROCEDURE COUNT CSJ ; 



BEGIN 

SI != S ; 

28 (IF SC a "* 

JUMP OUT 



0136 
0137 
0138 
0139 
NEXT SEG 
0051 
0051 
OOSl 
0051 



***«***«** 



" THEN 



SI 



TALLY f 



«*.ti 



• 
• 



TALLY 

51 *» 
S 1= SI ; 
CI :- s ; 

CS 5= LIT 

COUNT Ja TALLY f 
END COUNT ; 
STREAM PROCEDURE MOVE 
VALUE SKPS, SKPD* IN ; 
BEGIN 

SI 

CI 

SI 

CI 

CS 



(s, p, 5KPS* SKPo^ N) ; 



J = 



s ; 

D ; 

S| + SKPS ; 

Di + sKPO ; 

N CHR ; 

END MOvE * 
INTEGER C* J^ K ; 
DEFINE A 9 PRETANK* ; 
LABEL NOSKIP* 

S k T P * 

IF BOOLEAN CILFCRI) 
BEGIN 

iLFCRi »= ; 

IF FIRSTCHAH (A 

J «« 2 I 

END ; 

IF C Js CQUnT (A) « g NEQ AND NOT BOOLEAN (BREAkI) THEN 
BEGIN 

IF K I 

BEGIN 

BUFFER £4J 



THEN 



£03) s '♦S'' THEN 



5 CQUNTI lSS THEN 



is 



NOSKIP! 



MOVE (A to], BUFFER tU# W^ 0, Za) ' 
IF TIMEI - TIMeX GEO 180 THEN 

GO TO NCSKIP ; 
rtRlTE (TWXOUT^ 5* BUFFER t*]) CNOSKiP ; 
TIMEI tu MAX CTJMEI, TIMEX) +0x6; 

iO TO SKIP ; 
louNTi !« e ; 

BLOCK «» BLOC «- J ; 

HEADI »s ^1 ; 

IF TIMEI LSS TN Or NOT OUTPUTrEAOY THEN 

BEGIN 



NUSKiPJ 



06148600 T 
00148800 T 

00149200 T 
09149400 T 

START OF SEGMENT 

00149600 T 0000 

00149800 T 0000 

00150000 T 0000 

00150200 T OOOl 

0P150400 T 0001 

00150600 T 0001 

00150800 T 0003 

00151000 T 0003 

00151200 T 0003 

00151400 T 0004 

00151600 T 0004 

00151800 T 0005 

00152000 T 0005 

00152200 T 0005 

00152400 T 0006 

00152600 T 0006 

00152800 T 0006 

00153000 T 0007 

00153200 T 0007 

00153400 T 0008 

00153600 T 0008 

00153700 T 0008 

00153800 T 0008 

00154000 T 0008 

00154200 T 0008 

00154400 T 0010 

00154600 T 0010 

00154800 T 0012 

00155000 T 0014 

00155200 T 0016 

00155400 T 0016 

00155600 T 0020 

00155800 T 0021 

00156000 T 0023 

00156200 T 0024 

00156400 T 0026 

00156600 T 0029 

06156800 T 0031 

00157000 T 0032 

00157200 T 0041 

08157400 T 0048 

00157600 T 0050 

00157800 T 0090 

00158000 T 0052 

06158200 T 0055 

06158400 T 0058 

00158600 T 0060 



i 

i 

i 

i 
i 
i 
i 
i 
i 



• 



m 



• 



NEXTCLQCK »s cLOcK - TO x ( (TN IsT iMel )-T IMEX- l2Q ) / 15C i 
TANKEOOUTPUT «s TRUE ; 

END > 

GO TO SKIP ; 
END ; 

IF K LSS CHHSPER8UFFER THEN 
BEGIN 

NOVE (A* BUFFER CB10C3' 4> K? CHRSPERBUFFER * K) ; 

J IB J + CHRSPERBUFFER - K I 

IF COUNTI ?» K 18 K + C USS CHRSPERBUFFER THEN 
GO TO SKIP } 

C ;= K - CHRSPERBUFFER i 
ENQ ; 

IF BLOC J8 BLOC + WDSPERBuFFER GEQ 29 THEN 
BEGIN 

BLOC I' I ; 

IF FREEHEAD NEQ MaXFREEHEaO THEN 
BEGIN 

READ (It; CFREEHEA03* 1* BUFFER C*JJ ; 

K :s BUFFER C03 ; 

END EtSE 

K !s maxfreehead js maxfreeheao ♦ i ; 

BUFFER tO^ «* -1 ' 

WRITE (10 tFREEHEAD]* 30* BUFFER C*]) / 

IF HEADI GEQ THEN 

BEGIN 

READ CIt3 tTAJLU* 10* BUFFER E*3) * 

BUFFER t03 »» FREEHEAD * 

WRITE (10 CTAILI3* 30* BUFFER [*33 / 
END ELSE 

HEADI 5' FREEHEAD * 
TAILI «» FREEHEAD ; 
fREEHEAD «= K ; 

ENQ ; 

MOVE (A* BUFFER CBL0C3# J* 0* 293 ; 
COUNTI 1= c ; 
END ; 
5KIPJ 

END WRITETWX i 

DEFINE ITSQLD CITSOLDI) = BOOLEAN (KCUnT CITSQLDl, 0, 0))#, 
LCC CLOCiJ s KQUNT (LQCi» p 0)# * 

Integer procedure kounT cn» m* kk) '* 
value n* m, kk ; 
integer n* m* kk ; 

BESIN 
INTEGER K ; 

REAL L ; 

While n lss cl »» ll cat^.s do 

AT I" L.F ; 

WHILE N GTR (L «= LL [AT3 ),S DO 

AT := L,T } 
IF KK NEQ THEN 
BEGIN 

IF M s INFINITY THEN M J* M " 1 ; 



7 IS 



0^158800 T 

00159Q0Q T 
0S159200 T 
00159400 T 
00lb9600 T 
00159800 T 
00160000 T 
06160200 T 
0ei60«00 T 
00160600 T 
00160800 T 
00161000 T 
00161200 T 
00161AOO T 
00161600 T 
00161800 T 
00162000 T 
00162200 T 
09162400 T 
09162600 T 
001628CJQ T 
00163000 T 
00163200 T 
00163400 T 
00163600 T 
0Q163800 T 
09164000 T 
00164200 T 
00164400 T 
00164600 T 
0Q164800 T 
06165000 T 
06165200 T 
00165400 T 
0P165600 T 
00165800 T 
00166000 T 
00166200 T 
00166400 T 
144 LONG, 



00170000 T 

0017001U T 

00170020 T 

00170030 T 

00170040 T 

00J70050 T 

00170060 T 

00170070 T 

START OF SEGMENT 

06170080 T 

00170090 T 

00170100 T 

00170110 T 

00170120 T 

09170130 T 

09170140 T 

O017O15O T 



0061 

0067 
0069 
0069 
0069 
0069 
0070 
0070 
0075 
0077 
0080 
0081 
0082 
0082 
0086 
0086 
0088 
0090 
0090 
0096 
0099 
0098 
OlOl 
0103 
0109 
OUO 
OUi 
0U8 
0120 
0126 
0126 
0129 
0131 
0132 
0132 
0136 
0136 
0138 
0139 
NEXT SeG 

0051 
0051 

OOSl 
0051 
OOSl 
0051 
0051 
0051 
it********* 

0000 
0000 
0005 
0007 
0012 
0014 
0014 
OOIS 



i 

i 
i 
i 
i 
« 
i 
« 
t 
i 
i 
i 



• 
• 
• 
m 
m 



• 






WHIUE M GEQ CL J* LI tAT3),S AND K :« K + 1 NEQ KK QU 
AT «s t,T ; 

KOUN» 8s K - REAL (M iSS L«S) ; 
END ELSE 
IF BOOLEAN CM) THLN 

KQUNT }s AT 

ELSE 

KQUNT »a REAL CN s L»S) > 
ENB KOUNT ; 



8 IS 



00170i60 T 

09170170 T 
06170160 T 
O017O19O T 
06170200 T 
00170210 T 
00170220 T 
00170230 T 
09170240 T 
37 LONG* 



DEFINE 

ksRITESEQuENCE - >NRlTiALlNE iOH* 
WRITELFOR » WRITEALINE Cl)«* 
WRITESEQ a WRITEALINE (2)#* 
WRITeQUEUED s WRiTEAHNE {5J#' 
InRITESEGMENT = WRITEALINE (6)#, 
WRITeRELAODR ' WRITEaLINE <7)# } 

PROCEDURE WRITEALINE (K) ; 

VALUE K ; 

INTEGER K ; 
BEGIN 

STMEAW PROCEDURE FuRW CPRETANK' N* 



K, LFCR' COLON* F ) 



* * * * 



K* lFCR* COLON* F) ; 



VALUE N' 

BEGIN 

LA8EL EXIT } 

DI J= PRETANK ; 
LFCR (QS is 2 LIT "SX" ; 
K (SI J* LOC N ; 
DS Js K DEC ; 
F (PRETANK Js 01 * 

DI ;» Di - K I 

DS 5S K FILL ; 
DI ;a PRETANK) ; 
JUMP OUT) f 
COLON (DS != LIT "»"3 f 
JUMP GUT TO EXIT) i 
COLON (SI ;s LOC N f 

F (DS «» 7 LIT "QUEUEDC ; 
DS Js 2 DEC / 
DS !* LIT ♦')" ; 
JUMP UUT 2 TO EXIT) > 
K (DS !" 9 LIT "REL ADDRs" ; 
DS ?s 4 DEC ; 

JUMP OUT 2 TO EXiTi i 
OS IS 8 LIT "SEGMENTS" ; 
OS »s 4 DEC ; 
JUMP OUT TO EXIT) ; 
F (N (OS !a LIT " «) ; JUMP OUT TO EXIT) i 
OS ;a LIT ">" ; 
EXITJ 

DS »s LIT "♦" ; 
END FORM ; 

DEFINE XON » FORM (PRETANK* Q' 
TABIT - FORM (PRETANK* I* 0' 
LFCR B FORM (PRETANK* 0* 0* 



Of 0* C« 0))!'* 
0* 0* l)#* 
I* 0* 0)#* 



00170500 
00175000 
00175100 
0Q175200 
00175300 
00175600 
00175700 
06175800 
00175900 
00176000 
00176100 
O01762OO 
00176300 
START OF SEGMENT 
00176400 
00176500 
00176600 
09176700 
09176800 
00176900 
06177000 
09177100 
09177200 
00177300 
00177400 
00177500 
00177600 
00177700 
00177800 
00177900 
00178000 
09178100 
09178200 
O01783OO 
00178400 
00178500 
00178600 
0617870C 
90178900 
00179000 
00179100 
09179200 
09179300 
08179400 

09179500 
00179600 
06179700 



0017 

0025 
0028 
0030 
0030 
0031 
0031 
0032 
0034 
NEXT SEG 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 



• 



• 



********** 

T 0000 

T OOOO 

T 0000 

T 0000 

T 0000 

T 0001 

T 0003 

T 0003 

T 0064 

T 0005 

T 0005 

T 0006 

T 0007 

T 0008 

T 0009 

T 0010 

T 0013 

T 0013 

T 0013 

T 0014 

T 0917 

T 0017 

T 0018 

T 0019 

T 0020 

T 0020 

T 0024 

T 0024 

T 0034 

T 0025 

T 0025 

T 0025 

T 0025 






• 

• 

• 

:• 

;# 
■;• 
• 

• 
• 



CCLON = FORM (PRtTANK^ 0* 0# 1/ 1* O)** 

SEQ s FORM (PRETANK* IF N s INFINITY THEN 99999999 Ei^$E 
IF CaeOUFlLE THEN 6 ELSE 8* 1* 
IF COBOLFlLE THEN ElSE If 
OLDSEQ » FORM (PHETANK, IF N * INFINITY 

U CQBOLFIIE THEN 6 ELSE 
IF CQBOLFILE THEN ELSE 
CHReTaNK/ ReADTQTCP* 0^ 



N* 



PARAMETERS, 

PARAMETERS* 

WRITeTWX ; 



NEQ THEN 
a? THEN 



QUEFORM = FORM 
SEGMENT ^ FORM (PREtANK, 
RELAODR s FORM (PRETANK, 
TWX (TWXl) a BEGIN TWXl , 
IF K = THEN 

BEGIN 

IF FILEOPEN THEN 
BEGIN 

TWX (QLDSEQ) ; 

IF INLINETOG AND EXTRaLFCR TH£N 

Twx clfcr) ; 

IF TABON AND TABAWOUNT 
BEGIN 

IF I t« TABAMQUNT GTR 
BEGIN 

I s= I - 27 ; 
TWX CTABIT) ; 
I s* 27 ; 
END i 
TWX (TABIT) i 

END ; 

END 
ELSE 

TWX (COLON) f 
IF XDEX LSS AND 

TWX <XQN3 
ELSE 

ERRTOq 5- FALSE 
END 

ELSE IF K = I THEN 
BEGIN 

TWX CLFCR) i 
ILFCRI !» 1 f 
END 

ELSE 

TWX CIF K=a THEN 
IF K«6 THEN 
EM3 WRITEALINE i 



n#* 

THEN 99999999 

a, x» 

i, 1-REALCITSOLO 
Of iP i)»f 



ELSE N* 



CN)))*. 



0, 0, I, 

i* Of If 

END* ; 



0}«, 
0)«f 



NOT ERHT06 THEN 



; 



SEQ ELSE IF Ks5 THEN QUEFOKM Et$E 
SEGMENT ELSE IF K*/ THEN ReLADQRj i 



PROCEDURE WRiTEHUW (ROW, Q, F) i 
VALUE Q* 

F ? 
BOOLEAN Q ; 
INTEGER F ; 
ARRAY ROW [0] ; 

BEGIN 
STREAM PROCEDURE MOVE (5* 0' SKPS* N) ; 

VALUE SKPS* N ; 



0ei79800 
06179900 
00180000 
00180100 
00180200 
00180300 
00180400 
00180500 
00180600 
06180700 
00180800 
00181000 

ooiauoo 

00181200 
00181300 
00181400 
00181500 
00181600 
00181700 
00181800 
0ll81900 
00182000 
00182100 
00182200 
00182300 
00182400 
00182500 
06182600 
00182700 
00182800 
06182900 
00183000 
00183100 
00183200 
00183300 
00183400 
00183500 
00183600 
06183700 
00183800 
00183900 
00184000 
0018*100 
0gi84200 
06184300 
9 IS 99 LONG* 
00190500 T 
06191000 
O01915OO 
00192000 
00192500 

00193000 
00193500 

O01936OO 

00193700 

START OF SEGMENT 

09193800 



0035 
0039 
0039 
0029 
0035 
0025 
0025 
0025 
0035 
0025 
0025 
0025 
0026 
0027 
0026 
0038 
0037 
0039 
0042 
0044 
0045 
0046 
0046 
0048 
0050 
0051 
OOSl 
0054 
0054 
0054 
0094 
0059 
0061 
0061 
0065 
0067 
0067 
0068 
0069 
0071 

0073 
0073 
0073 
0073 
0098 
NEXT Seg 
0051 
0051 
0091 
0051 
0051 
0051 
0051 
0091 

0051 
********** 

T 0000 



c 

i 

i 
i 

i 



• 
• 



10 



s ; 

i 

SI + SKPS 

N CHR > 

f 






BEGIN 

SI t^ 

CI {a 

SI !» 

DS J = 
END VOVE 
STREAM PROCEDURE 
VAUUE N* 

K ; 

BEGIN 

;x 
J» 
J» 
i« 
is 



8LANK0UTSPECIAICHARACTE«S (S* D* N* K) i 



LOG N 

t 

LIT 

; 

WDS 

; 



; OS J* 6 LIT "XX^S*" j 






• 



DI 

01 J» D 
DS J» 8 
Si !« D 
OS J« 9 
SI ;= S 

DI s= ; 

2 (K (IF SC * " " THEN 
BEGIN 

N (SI »s St - 1 ; 

IF SC * •• •' THEN 

DI >= DI ^ I ; 

SI j= Si + u ; 

DS ja CHR ; 

END ELSE 

IF S6 = ALPHA THEN 

05 t9 CHR 

Ilse 

BEGIN 

D 1= 01 ; 

DI ;s UOC N ; 

6 CIF SC s DC THEN wUMP QUI i Si i^ SJ - 1) 

01 »«= ; 

IF TOGGLE THEN 

DS Js 1 LIT "$" 
ELSE 

OS U CHR / 
END)) i 

END blankoutSpecialcharacters i 

boolean stream PROCEDURE aLLBLANK CS* SKP* N) ; 
VALUE SKP* 
N } 
BEGIN 
LABEL GHPMKIT ; 
Sl |«* S j 

SI ?■ SI + SKP ; 
Sl J5 SI + N > 
N (SI :» SI - 1 ; 
IF se NEQ " " then 
JUMP OUT to grpmkit) ; 
; 
1 ; 



******** 



SI 



Tally 

Si J* 

GRPHKITI 

Si in Si 4 

N }8 51 ; 

DI J» N i 



; 



00193900 




0000 


00194000 




0000 


00194100 




0000 


00194200 




0000 


0Q194300 




0001 


00194400 




0001 


00195000 




0001 


00195500 




OOOl 


09195600 




0001 


00196000 




OOOl 


00197500 




0002 


00198000 




0003 


0gi98500 




0003 


00199000 




0004 


00199500 




0005 


00200000 




0005 


OQ2C050C 




0005 


00201000 




0005 


002C1500 




0007 


0Q202000 




0007 


09202500 




0009 


08203000 




0009 


0Q2035OO 




0010 


00204000 




0010 


0020450C 




0010 


OG2O5Q00 




oou 


00205500 




ooii 


00206000 




oou 


00206500 




0012 


00207000 




0012 


002C7500 




0012 


00208000 




0012 


00208500 




0015 


00209000 




0015 


00209500 




0015 


00210000 




0016 


00210500 




0016 


00211000 




0016 


00219000 




0017 


00219500 




0017 


00220000 




0017 


00Z20500 




0017 


00221000 




0017 


00221500 




0017 


00222000 




0018 


00222500 




0018 


00223000 




0018 


00223500 




0018 


00224000 




0019 


00224500 




0020 


00225000 




0021 


00225500 




0031 


00226000 




0022 


00226500 




0022 


00227000 




0Q22 


0Q227500 




0023 


00228000 




0023 



c 

« 
i 

i 
i 
i 
i 

i 

i 



# 






m 
m 
m 
m 

m 

m 
m 
m 
m 



Os J' 1 LIT "♦" f 

ALLBIANK js TALUY ; 
ENO ALLBUANK ; 
BOOLEAN DATUM } 
DEFINE FIUEINFC = F# ) 
INTEGER Z ; 

BlANKOUTSpECIAlCHARACTERS (ROW* Input* Q* HAUFFUUlUENtiTH) ; 

IF DATAFUE then 

BEGIN 

MOVE CInPUT 19U ZIPPY ll^ir 0, 8) i 
DATUM ;« NOT aLUBUaNK (ZJPPY C153* 0* 8) ; 

End ; 

EXTRAUfCR «» not (COBQUfIUE or Q;5ALLBI,ANK (INPUT CZ't*73* 7, 

IF extralfcr or cgbolfile then 

WRITEUFCR f 
IF Q THEN 

IF Q ;= ALLBUANK (INPUT [73# 0' 7) THEN 

IF Q »* ALLBLaNK (INPUT CZ:*33* 4* g8j THEN 
Q }= ALLBLANK (INPUT CZJ*03# 0' 26) ; 
IF NOT « THEN 

FOR F IB STEP 3 UNTIL Z DO 
BESIN 

MOVE (INPUT CF]^ PRETANK COJV <l x F OIV 3* 28) ; 
WRITETWX i 

ENQ ; 

IF DATUM THEN 
BEGIN 

WRITELFCR } 

MOVE (ZiPPY C153* PRETANK* 0* 9) } 

WRITETWX ; 

END ' 

WRITELFCR i 
ENO WRITEROW I 

PROCEDURE ERRORS CK* A* B) ; 
VALUE K* 

A# 

6 J 
INTEGER K ; 
REAL A, 

b } 

BEGIN 
STREAM PROCEDURE CRUNCH (S# K# A, B) ; VALUE K# A# B ; 

BEGIN 

Label eo* ei* e2* eb* £4, es* £6, filename* crunch* deblank ; 
SI »= Loc A ; 
Si s= 5i + I ; 
Di ja s ; 

DS }s 2 LIT "<^" } 

CI la ei + K / 

60 TO EO i 

6C TO El 

GC TO E2 

GC TO E3 

60 TO E4 



y)) 



IC IS 



START 



0Q228500 T 
00229000 T 
06229500 T 
06229600 T 
00229700 T 
06229800 T 
00230000 T 

O023OIOO T 
00230200 T 
00230300 T 
06230400 T 
06230500 T 
00231000 T 
00231500 T 
00232000 T 
00232500 T 
00233000 T 
00233500 T 

06234000 T 
00234500 T 
00235000 T 
00235500 T 
00236000 T 
00236500 T 
00237000 T 
00237050 T 
0e237i00 T 
06237200 T 
00237300 T 
06237400 T 
00237450 T 
0P237460 T 
00237500 T 
69 LONG* 
00237510 T 
06237512 T 
00237514 T 
06237516 T 
00237518 T 
09237520 T 

00237522 T 

00237524 T 

0Q237526 T 

00237528 T 

OF SEGMENT ** 

00237530 T 

00237532 T 

06237534 T 

00237536 T 

06237538 T 

O023754O T 

00237542 T 

00237544 T 

06237546 T 

00237548 T 

06237550 T 

0Q237552 T 



0023 
0024 
0024 
0025 
0025 
0025 
0035 

0030 

0030 

0031 

0033 

0036 

0036 

0039 

0042 

0043 

0044 

0047 

005o 

0054 

0054 

0056 

0056 

0059 

0059 

0061 

0062 

0062 

0063 

0065 

0065 

0065 

0066 
NEXT SEG 

0051 

0051 

0051 

0051 

0051 

0051 

0051 

0051 

0051 

0051 
******** 

0000 
0000 
0000 
0000 
0000 
0000 
OOGl 
OOOl 
0002 
0002 
0002 
0002 



i 

i 

i 
i 

i 



i 



i 

• 



u 



c 



m 
m 
m 



El 



E2I 



E3J 



E5» 



GC TO £5 i 

GO TO 16 } 

60 TO Eo ; 

GO TO EO ; 

DS t= 10 LIT "INV USER! 

GO TO E6 ; 

CS I* 2 LIT "NO" ; 

6C TO Filename i 

CS J= 3 LIT "BAD" i 

GC TO FILENAME i 

DS J» 8 LIT "NO FILE " ; 



EOJ 

CS ;= 7 CHH ; 

SI J= SI + 1 ) 

DS J5 ? CHR i 

GC TO CRUNCH ; 

DS ts 3 LIT "DUP' 
FILENAME: 



CS 



E6 



• 



3 

I 

7 
7 



LIT 

LIT 



FiLE« 



• 
• 



CS |s 7 CHR ; 

DS >s LIT "/" I 

SI ;s Si + 1 ; 

DS ;= 7 CHR ; 

crunch: 

DS J= LIT "♦•" ; 

SI :« s ; 

DI {= S ; 

28 (IF SC s " « 

BEGIN 
DEBLANKt 



THEN 






SI != SI + i / 
IF SC * " " THEN 
GO TO DtBLANK ; 

If sc =5 AuPHA Then 
DS J= 1 LIT " " ; 
END ELSE 

DS J- CHR) ; 
END CRUNCH ; 

IF A = «#000000" THEN A 

IF B « "fOOOOOO" THEN B «- 

CRUNCH CPREtANK, K^ A, B) i 

WRITETWX ; 

IF K LEO 6 THEN 

BEGIN 

ERRTOG l» TRUE > 
MOREINPUT t^ FALSE ; 
NOSTAR !• FALSE I 
XDEX «» ■»! ' 
END ELSE IF K » 8 THEN 
ILFCRI «« 1 } 
END eRsorx ; 






0023755^ 
O0237556 
00237558 
00237560 
00237562 
00237564 
06237566 
00237568 
00237570 
00237572 
00237574 
00237576 
0Q237578 
00237580 
00237582 
00237564 
00237586 
00237588 

00237590 
C0237592 
09237594 
00237596 
00237598 
00237600 

0023760* 
00237604 

00237606 
00237608 
00237610 
00237612 
00237614 
00237616 
00237618 
00237620 
00237622 
00237624 
00237626 
06237628 
00237630 
00237632 
00237634 
00237636 
00237638 
00237640 
00237642 
00237644 
00237646 
00237648 
00237650 

00237652 
00237654 
00237656 
00237658 
00237660 
O0237662 
00237664 
00237666 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0003 
0003 
0003 
0003 
0004 
0004 
0005 
0005 
0005 
0006 
0006 
0006 
0007 
0008 
0008 
0009 
0009 
0010 
0010 
0010 

oou 

oou 
oou 
oou 

0013 
0013 

OQiil 

oou 

0015 
0015 
0015 
0016 
0016 
0017 
0017 
0017 
0016 
0019 
0019 
0020 
0020 
0021 
0021 
0021 
0022 
00$4 
0026 
0027 
0028 
0029 
00g9 
OOU 
0033 
0034 

0035 
0039 
0042 






• 






%■ 



m 
m 
m 



• 



PARAMETERS 

THEN 

"lY FILE") ; 



DEFINE ERROR (ERROHi, ERR0R2* ERRORJ* ERRORS? « 
BEGIN 

IRRORX (ERRORS* ERRORS* ERROR43 ; 
GO TO ERRQRl i 

END ERROR** 
ShCW (ShOWI* SH0rt2) * ERRORX (8* SHOWl* SH0W2)# * 

X^iiik*****************!*********** 

BOOLEAN PReCEDUHE FaECHECK (B) ; 

VALUE B I 

BOOLEAN B ; 

BEGIN 

LABEL NEXT ; 



IF B THEN 
BEQIN 

IF FILECLOSEQ THEN 

ERROR (NEXT* 5* " OPEN! "* 

IF B,C46;n AND RtADONLYFILE 

ERROR (NEXT* 0* "READ ON"* 

END EL§E 

IF FILEOPEN THEN 
BEGIN 

SEARCH (DISC* INPUT E*3) ^ 
IF INPUT [OJ LSS FILEACCESS 
BE^IN 

CHARGE (STATION) I 

CLOSE (DISC) ; 

FILL DISC tsITH PREFIX* SUFFIX * 

SEARCH (DISC* INPUT t*J) * 

IF INPUT t03 LSS FILEACCESS THEN 

BEGIN 

FILEACCESS i^ i 
INORDER »= TRUE * 
ERROR (inEXT* 1 * REAL (INPUT t03 

END ; 
END ; 

END i 

IF FALSE THEN 
NEXTI 

FILEGHECK J* TRUE ; 
END FIlECHECK ; 



THEN 



LSS 0)* PREFIX* SUFFIX) ; 



11 IS 43 LONG* 
06237668 T 
06237670 
00237672 
00237674 
00237676 
00237678 
00237700 
00237740 
00237750 
00237760 
00237770 
00237780 
STAhT of SEGMENT 
00237790 
00237800 
00237810 
00237820 
00237830 
00237840 
08237850 
0023786C 
00237870 
00237880 
00237890 
00237900 
©©237905 
00237910 
00237920 
00237930 
00237940 
00237950 
00237960 
06237970 
00237980 
00238000 
00238010 
00238020 
00238030 
06238040 
06238050 
00238060 



NEXT SEG 
0051 
0051 
0051 
0051 
0051 
0051 
OOSl 
0051 
0051 
0051 
0051 
0051 



********** 



define opencheck 
reaoonlycheck 

SECURlTycHECK * IF FILECHECK 
PROCEDURE STATE (S) ; 
VALUE S i 
BOOLEAN S ; 



IF FILEGHECK (TRUE) THEN GO TO 

IF FILECHECK (BOOLEAN (3)) THEN 

(FALSE) THEN 60 TO 



NEXT** 

GO TO NEXT** 

NEXT# ; 



12 IS 37 LONG* 



BEGIN 
STREAM PROCEDURE 



STUFFSTATE (N* RECORD* Po» C) ; 



VALUE N * 

BEGIN 
LABEL EXIT ; 

N (01 s» c ; 

SI I* PO 



06238070 
00238080 
00238090 
00238100 
00238200 
00238300 
00236400 
00238500 
START OF SEGMENT 
06238600 

00239000 
06239100 
06239200 
06239300 



0000 
0000 
0000 

oooi 

0005 
0006 
0011 

oou 

0012 
0012 
0014 
0015 
0016 
0017 
0019 
0022 
0024 
0025 
0026 
0027 
0028 
0031 
0031 

0031 
0091 
0032 
0033 
0033 
NEXT SeG 
0051 
0051 
0051 
0051 
0051 
0051 
005 1 
0051 
********** 



12 



i 
i 
i 
i 

t 
m 
m 



0000 
0000 
0000 
0000 
OOOl 



13 



m 

m 



DS S= 25 wus ; 

SI Js RECORD ; 
DS J« 10 WDS ; 
JUMP OUT TO EXIT) 

J* c ; 

po ; 

25 WDS ; 
RECORD f 
10 WDS i 



»5 



• 



m 



m 



THEN StOTi Ei.SE at ; 



SI 
DI 
DS 
01 
OS 
exit: 

END stuffstate ; 
integer I, K ; 

CLOSE (DISC) ; 
K Js IF S.CiJ6»n 

if s then 

BEGIN 

stuffstate CI* 
WRITE (Rl CK]* 
IF S»U6Jl3 AND 
BE^IN 

K J= D.LEFTSIQE 
EOR I 5= STEP 
BEGIN 

IF MODIFIED THEN 

WRITE CR2 t32xSL0TI + I], 256* 
MODIFIED ?s MODIFIED, C16J313 i 
END } 
MODIFIED Js FALSE ; 

END ; 

END SAVESTATE ELSE 
BEGIN 

READ (Rl CK3# 90# CUNTRCLS t*3) 



CONTROLS C383) i 



RECORD* PARAMETERO* 
90* CONTROLS C*3) ; 
FILEOPEN AND REAL (MOOIFIEO) 



NEQ THEN 



UNTIL K 00 



LINKLISTS tUSER32+I, *J) ; 



parametero* 
Suffix ; 



STUFFSTaTE (0* RECORD* 
FILL DISC WITH PREFIX* 

IF s.[46JiJ Then 

MODIFIED 5a false ; 
USER32 i' USER x 32 * 
END RESTORESTaTE * 
PREWHERE »= -1 ; 
END STATE ; 



DEFINE SaVeSTaTE = STaTE (BOOLEAN (3))#* 
RESTqreSTATE = STATE (BOOLEAN (2))#* 
UNSWAPSTATE » STATE (FALSE)#* 
SWAPSTATE » STATE (TrUE)# i 

DEFINE WAIT (WAlTl* WAIT2) = 
BEGIN 

IF NOT WAITING THEN 

IF WAITX (WAITl* WAIT2) THEN 
GO TO NEXT i 

END* ; 

BOOLEAN PROCEDURE WAjTX (TOCKS* fQRCeO) ; 
VALUE TOCKS* 

FORCED ; 
INTEGER TOCKS * 
BOOLEAN FORCED * 



CONTROLS E3833 i 



13 IS 



* * * 



00239400 




0901 


00239600 




0001 


00239700 




0902 


09240400 




0002 


00240500 




9003 


00200600 




9003 


09240700 




0003 


00240900 




0003 


00241000 




0004 


00241700 




0004 


00246000 




0004 


00247500 




0005 


00248000 




0005 


00248500 




0007 


00246600 




0911 


00248700 




0011 


00250000 




0012 


09250600 




0014 


90251000 




0019 


09251500 




0922 


09252000 




0022 


09252500 




0023 


00253000 




0025 


09253100 




0025 


00253200 




0025 


09253500 




9033 


00254000 




0034 


00254100 




0037 


06254200 




003 7 


00254500 




0037 


00255500 




0037 


09256500 




0038 


06257500 




0943 


09258500 




0045 


00259000 




0049 


06259500 




0050 


00260000 




0051 


00260500 




0052 


00261000 




9052 


0026200C 




0053 


56 LONC 


> * 


NEXT SEG 


00262500 




0051 


00263000 




0951 


09263500 




0051 


00264000 




0051 


99264500 




0951 


0«265000 




9951 


09265100 




0051 


06265150 




0051 


00265200 




0051 


00265250 




0951 


00265300 




0951 


09265590 




0051 


99265690 




0951 


99265790 




9951 


00265890 




0051 


00265900 




0051 



• 



• 
• 



• 
• 

«' 

m 
# 



BEGIN 
DEFINE SEGMENT =# » 

IF TOCKS GEQ clock or forced THEN 
IF Q THEN 
BEGIN 

READYQ CRtAOYQTOP ?» REAOYQTOP -»• U Js USER i 

inreadyq »' I f 

WRITEQUEUED ; 
N !■ RESETN ; 

IF notfirstinput then 
savestate f 

STATION Js ; 

WAITX »« TRUE / 
END ELSE 
BEGIN 

IF F0RCEDfC«6Jn THEN 

BEGIN 

waitx :- bOCIean (USER i# Readys tU) ; 

CHARGE (STATIONI) ; 

INREAOYa l» ; 

FOR I J* 2 STEP 1 UNTIL READYQTOP 00 
READYG [I - 13 1= READYQ [U ' 

READYqTUP »p READYQTOP - 1 ; 

RESTORESTATE ; 

READ CIQ CUSER3* 30* IMAGE i*l) » 
END 'f 

WRITE (PRETaNK C*]* WaITF) ; 
WRITETWX i 
WAITFLAG ;» TRUE ; 
READYQ [OJ Sa ySER ; 

END ; 

END WAITX } 

DEFINE INTERRUPT (INTERRUPTI) = iNTERUpT (INTERRUPTI* 0# 0)$t 
INTERUPT (INtERUPTI* INTERUPT2» INTERUPT3) = 
BEGIN 

IF CLOCK ;=f CLOCK - INTERuPTI LEQ NEXTCLOCK THEN 

OUTPUT ; 
IF CLOCK LEQ ^ THEN 

IF INTERRUPTS CINTERUPT2' INTeRUPT3) TheN 
GO TO NEXT ; 
END* ; 
BOOLEAN PROCEDURE INTERRUPTS (lIB# LOC ) ; 
VALUE LIB* LOC ; 
INTEGER LIB' LQC ) 
BEGIN 

Label newbiRd* none* next ; 

TO J* CLOCK i* MAX (50* TO x 150 / (-T1 ♦ Tl »s TIM^X)) ; 

IF WAITING THEN 

BEGIN 

INPUT C5] t= & »*«C1U3!53 * 

READ CTWXINPUT (0* 0)* 8* INPUT C*3) [NONE] * 
9INPUT i' TRUE ; 
NEWBIRDl 

SWAPSTATE i 



00266000 
00266100 
START OF SEGMENT 
00266200 
0026630C 
00266400 
00266500 
00266600 
00266700 
00266900 
0026700C 
00267100 
00267200 
O02673OO 
00267400 
0e267500 
00267600 

00267700 
00267800 
00267900 
00268000 
00268100 
00268200 
06268300 
0026840C 
00268410 
09268500 
00268600 
00268700 
00268800 
00268900 
09269300 
00269400 
14 IS 43 LON 
00282000 
00282100 
00262500 
00283000 
00283100 
00283200 
00283500 
00284000 
00284500 
00285000 
00285100 
00285200 
00285500 
00286000 
START OF SEGMENT 
00286500 
00287000 
00287500 
00288000 
06288500 
00289000 
00289500 
00290000 



T 0051 
T OOSl 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
G* 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 



0000 
0001 

0002 
0003 
0005 
0007 
0006 

oooe 

0009 

0010 

0011 
0012 

0012 
0012 
0013 
0014 
0015 
0017 
0019 
0021 
0025 
0026 
0027 

0032 
0032 

0036 
0037 
0039 

0040 
0040 
NEXT SE6 
0051 

0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 



14 



c 

i 
i 
i 
1 



• 






i, ** n ****** * 



15 



T 

T 
T 
T 
T 
T 
T 
T 



0000 
0007 
0008 
0008 
0010 
0017 
0019 
0020 






• 
• 

• 

• 



NONEJ 



Close (library) ; 
charge (statiqn |3 0) 
inreadyq 15 3 ; 

Q t= TRUE ; 

PROGRAM ; 

© »= FALSE ; 

USER J= REAOYG [03 ; 

CHARGE (STATIQNn ; 

inreadyq j" ; 

unskapstate > 
Securitycheck ; 

if lib neq then 

BEGIN 

FILL 
IF 

READ 
END i 



LIBRARY WITH IF BOOLEAN (LIB) THEN 
BOOLEAN (LIB) THEN PARAMETERS ELSE 
SEEK (LIBRARY CL0C3) ; 



PARAMETERl 
SUFFIX i 



ELSE PREFIX* 



IF RATTLEINDEX »= RATTLEINDEX + I » 5 THEN 

BEGI!^ 

FOR TINK «» STEP i UNTIl REAOYQTOP DO 
BEGIN 

USER »* REAOYQ CTINK] f 
IF COUNTI LSS THEN 

IF REAL (BOOLEAN (STATUS (STATIONI* 0)).C22;93 
BOOIEAN ("6C")) = THEN 
WRITE (TWXQUT* RATTLE) i 
END ; 

USER »= reauyq [Rattleindex »s 03 ; 

CHARGE (STATION) ; 

IF 2 X BIGBJRD + 2 LSS STATUS (ZIPPY t*3) THEN 

^Q TO NEWBIRD ; 
IF FALSE THIN 
NEXTJ 

INTERRUPTS ?« TRUE ; 
END ; 
END } 

CLOCK J= TO ; 
Tl »» TIMEX } 
IF QUTPUTREADY THEN 

NEXTCLQCK »s CLOCK • TO x (TN • Tl - 90) / 150 ; 
END INTERRUPTS ; 

;6***i«r**«lr*«***4r*4^illr*********'*** 

INTEGER PROCEDURE XFILE (P* S* FS) ; 

VALUE P* S» FS } 

REAL P# S* FS ; 

BSGIN 

DEFINE SEGMENT * » i 

IF P s 12 THEN 
BEGIN 

IF NUMl THEN 
BEGIN 

NUMl j= FALSE ; 

P 15 PARAMETERl «« OCTDEC (PARAMETER!) i 
END ELSE 



AND 



0Q290100 
00290500 
00291000 
00291500 
00292000 
00292500 
00293000 
00295500 
00296000 
002965OO 
00297000 
00297100 
09297200 
O02973OO 
00297400 
00297500 
00297600 
00297700 
00296000 
0Q298500 
06299000 
0G299500 
00300000 
06300500 
06301000 
06301100 
06301500 
00302000 
00302500 
00302700 
06303000 
00303500 
00304000 
00304500 
06305000 
00305500 
06306000 
06306100 
O03062OO 
00306300 
00306400 
08307000 



15 IS 93 LONG* 

00318000 T 

00318100 T 

09318110 T 

00316120 T 

06318130 T 

00318140 T 

START OF SEGMENT ** 

00318150 T 

0P318160 T 

09318170 T 

06318180 T 

09318190 T 

09318200 T 

00318210 T 



0020 
0022 
0024 
0026 
0027 
0028 
0030 
0031 
O033 
0035 
0035 
0037 
0038 
0038 
0041 
0045 
0050 
0050 
0051 
0053 
00§4 
0055 
0055 
0056 
0057 
0062 
0061 

0068 
0071 
0073 
0074 
0078 
0078 
0079 
0080 
0080 
0080 
0080 
0081 
0083 
0083 
0088 
NEXT 5EG 
0051 
0051 
0051 
0051 
0051 

0051 

******** 

0000 
OOOO 
0001 
0002 
0002 
0004 
0006 



i 
t 
t 

• 
• 

m 
m 



16 



m 






m 



m 
m 
m 



P :s PARAMETER! r 
IF NUM2 THEN 
BEGIN 

NUM2 »a FALSE ; 

S sa PARAMETERS Js OCTD£C (PARAMETERS) } 

END ELSE 

S la PARAMETERS ; 

END ; 

FILL LIBRARY wITH P, S J 

SEARCH (LIBRARY* jNPUT [*]) f 

IF XFILE '=» INPUT [0] USS FS THEN 

ERRORX (l + REAL (INPUT EC3 LSS 0)* P* 53 ; 
END XFILE ; 

PROCEDURE REAOIN ; 

BE6IN 
BOOLEAN PROCEDURE MORE ; 

BEGIN 
LABEL NEXT* 

EXIT ; 
INTEGER STREAM PROCEDURE TRAIL INGBLANKS (S* N) ; 
VALUE N } 
BEGIN 
LABEL DONE ; 

Si }= s ; 

si :s Si + 7 ; 

S != TALLY ; 

CI J' S ; 

2 (N (IF 3C NEQ ♦♦ " THEN JUMP QUT 2 TO DONE ; 

SI J= si - 1 ; 

DI J5 DI + 8)) ; 

DONEJ 

TRAILIN6BLANKS «= DI * 

END trailingblanks ; 

INTEGER XSUB ; 

DEFINE FILEINFO s XFILETYPE# J 

IF FILEOPEN THE^ 
BEGIN 

If N gTR FINITY THEN 

IF N SB UL tLAST»F3,S + INC GTR FINITY THEN 
BEGIN 

H Sa FINITY * 

ERROR (NEXT* 0* "SeQ, OV"* "eR'FLOW") ; 

END ; 

IF N LEQ C THEN 
N »* I ; 

END ; 

IF MOREINPUT THEN 
6ESIN 

Read (ID cuseh + maxusersj* 3c* image c*]) i 
CHRS 8= nchrs ; 
GO TO EXIT i 

END ; 

IF xoEx LSS Then 



T 0006 

T 0007 

T oooe 

T 0009 

T 0010 

T 0013 

T 0013 

T OOU 

T 0014 

T 0018 

T 0020 

T 0021 

T 0024 

NEXT SCG 

T OOSl 

T 0051 

T OO&l 

T 0051 

********** 

T 0000 

T 0000 

********** 



0Q316220 
00318230 
00318240 
00318250 
00318200 
O0318270 
00318280 
00316290 
00318300 
00318310 
0031832Q 
00318330 
00318350 
16 IS 27 LONG* 
00318360 
00319000 
00319100 
09319210 

START OF SEGMENT 
00319220 
00319230 

START 8F SEGMENT 

00319240 T 0000 
00319250 T 0000 
00319260 T 0000 
09319270 T 0000 
00319280 T 0000 
00319290 T 0000 
00319300 T 0000 
00319310 T 0000 
00319320 T 0000 
O031933O T 0001 
06319340 T 0003 
003193S0 T 0003 
00319360 T 0004 
00319370 T 0004 
00319380 T 0005 
00319390 T 0006 
00319400 T 0006 
00319410 T 0006 
0031942Q T 0007 
00319430 T 0008 
00319440 T 0009 
00319450 T 0016 
00319460 T 0016 
00319470 T 0017 
09319480 T 0023 
00319490 T 0023 
00319500 T 0023 
00319510 T 0025 
00319520 T 0025 
09319530 T 0025 
00319540 T 0026 
00319545 T 0092 
09319550 T 0035 
09319560 T 0035 
00319570 T 0035 



1? 



16 



c 

i 

i 

i 
t 

• 

• 

• 



• 
• 



m 
• 



• 






BE6IN 
NEXTS 

ir NOT NOSTAR THEN 

WRITESEQUENuE ; 
CHRS J= ; 
SAVESTATE ; 
END ELSE 
BEGIN 

XSUB J= XDEX X 13 ; 

WHILE XN J« XN + I 6TR XLAST QQ 

IF XREPEAT i- XREPEAT - I GTR THEN 

XN »« XSTART 
ELSE 
BEGIN 

IF XSUFFIX 5 "SMACRO*" THEN 
BEGIN 

IF XFILL (XPHEFIX# xSUFFIX* 7) LSS 7 THEN 

GO TO NEXT ; 
READ (LIBRARY) } 
DETACH ; 

CLOSE (LIBRARY^ PURGE) J 
REATTACH ; 
END ; 

IF BOOLEAN (XNCHRS.CHU) THEN 
BEGIN 

READ CIQ ESxMAXUSERS+XMAXxUSER^XDeXj, 30, IMAGE £*3) ; 
CHRS 18 ABS CXNCHRS) i 
XDEX J«? XDEX - I ; 

GO TO Exit } 

END ; 

IF XDEX S" XDEX " I LSS THEN 

GO TO NEXT f 
XSUB IS XDEX X 13 I 
END J 
IF XFILE (XPREFIX* xSUFFiX' 2) LSS 2 THEN 
60 TO NEXT / 

IF XECHO THEN 

WRITESEQUENCE i 
SAVESTATE ; 
INTERRUPT (3) ; 

Read (library [xn - u* io» image c*3) ; 

Close (library) ; 

ChRS Js (I »= fulllength) " 

TRAILINGBLANKS (IMAGE CI,C4ll43-n# I.C4H6]) ; 
IF XiCHO THEN 

WRITEROW (IMAGE C*], FALSE, XFIuETYPE) ; 
EXITS 

MORE «5 TRUE ; 

ENS ; 

END MORE ; 

BOOLEAN STREAM PROCEDURE LlNEEDlT (S> D' C' CHRS* P* 0VER80* EIGHTYl) i 
VALUE C^ 

P, 

OVER80, 

EI8HTY1 ; 
BEGIN 



18 IS 



00319580 T 
09319590 T 
00319600 T 
00319610 T 
09319620 T 
00319630 T 
00319640 T 

00319650 T 
O031966O T 

093196?0 T 
09319680 T 
00319690 T 
00319700 T 
06319710 T 
06319720 T 
09319730 T 
00319740 T 
00319750 T 
09319760 T 
09319770 T 
00319700 T 
O031979O T 
0©31980Q T 
09319810 T 
09319820 T 
09319830 T 
09119840 T 
09319850 T 
09319860 T 
06319870 T 
00319880 T 
09319890 T 
09319900 T 
08319910 T 
00319920 T 
00319930 T 
09319940 T 
00319950 T 
00319960 T 
06319970 T 
00319980 T 
00319990 T 
09320000 T 
00320010 T 
06320020 T 
09320030 T 
0932004Q T 
00320050 T 
09320060 T 
00320070 T 
139 LONG, 



00321000 
0932UOO 
09321200 
99321390 
00321400 
09321500 



0036 

0037 

0037 

0038 

0039 

0041 

0042 

0042 
0042 

0043 
0051 

0056 
0QS9 
9060 
9061 
0063 
0063 
0068 
0069 
0073 
9974 
0075 
0076 
0076 
0079 
0079 

0087 
0090 
0092 
0094 
0094 
0095 
0996 
0097 

009a 

0102 
0103 
0104 
0105 
0106 
0111 
0119 
0121 
0126 
0130 
0131 

0135 
0135 
0135 
0135 
NEXT SEQ 
0000 
0900 
0000 
0900 
0000 
0900 



i 
• 



• 



1? 



m 



m 
m 

m 

m 
m 
:• 



• 



LOCAL T* 

PERCENT!* PERCENT ; 
LABEL AROUND^ NEXT ; 

p cDi IS Loc Percent 

SI ;= LOC c ; 

01 i' LOC T ; 

SI ja si + 6 ; 

01 »« 01 + 7 ; 

DS i» CHR * 

SI J« B } 

01 »= ; 

T CDI «« DI ♦ 32 ; 
DI •<• C 



; DS J« H LIT "»?''*a/C<)>ES3S") ; 



DI »s PI ♦ 3a) i 



01 »« 
56(IF 



AROUND J 



8- 1 ; 

AROUNO ; 

"j*« THEN* LINE ERASE 



SC s "*" THEN 

GO TO AROUND ; 
IF SC s "i" THENX 
BEGIN 

TALLY 

GO TO 
END ; 
IF SC » 
SEGIN 

C IS TALLY ; 

DVER80 s= TALLY ; 

DI »s D ; 

GO TO AROUND ; 
END } 

IF SC 8 "S" THENX BACKSPACE 
BEGIN 

s IS Si ; 

T i« DI ; 

SI Is LUC 

DI l» LOC LINEEDIT i 



DISCONNECT OR EXCLAMATION 



IF 8 SC 

BEGIN 
0VER80 



SI 

SI 
C 

DI 
DI 
END 



5= SI 

i' Si ; 
js T ; 

Js DI 

ELSE 



c ; 

LINEEDIT 
NEC DC THEN 

(SI I* SI 

01 J» LOC 
IF 8 SC s 
OVER80 

c ; 

6 ; 



" 8 ; 

EIGHTY! 

DC THEN 

i9 TALLY) 



; 



1 i 



DI «' T 

Si ts s ; 

END ELSE 
BEGIN 

S j» SJ ; 
0VER80 CDI 
SI 
SI 
C 
SI 



?« DI 

»« c ; 

is SI ♦ 
«« SI } 

15 s ; 



+ I 



JUMP OUT TO AROUND) i 



0g321600 
00321700 
00321800 
00321900 
0g322000 
00322100 
00322200 
0€322300 
00322400 

0Q322500 
0Q322600 
00322700 

00322800 
00322900 
0e323000 
00323010 
09323020 
03323030 
00323040 
00323030 
09323100 
00323200 
00323300 
06323400 
0Q32350G 
00323600 
09321700 
O03238OO 
06323900 
09324000 
00324100 
00324200 
00384300 
00324400 
00324500 
06324600 
00324700 
09324800 
00324900 
00325000 
09325100 
06325200 
0§325300 
00325400 
06325500 
09325600 
00325700 
00325800 
06325900 
09326900 
00326600 
00326700 
06326900 
00327000 
00327100 
00327200 
06327300 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0000 
0000 
0003 
0003 
0004 

0004 
0004 
0004 
0005 
0005 
0007 
0007 
O0O8 
0008 
0009 
0009 

0009 
0010 
0010 
0010 
0010 

ooii 

0011 
00 It 
0012 
0012 
0012 
0012 
0013 
0013 
0013 
0014 
0014 
0014 

0016 
0016 
0017 
0017 
0017 
0018 
0018 
0018 
0016 
0019 
0019 
0019 
0019 
0020 
0020 
0020 
0021 
0022 
0022 
0022 

0022 









• 

• 






m 



m 
• 



NEXTJ 



T 
P 



:" D 

CDI 

SI 

SI 

IF 

BEG 
S 
7 



Ji 

J* 
; u 

:s 

sc 

IN 
I 
C 



; 



s ; 
T ; 

SI « I ; 

» "X" THEN 



uoc 



IF SC ' 

BEGIN 
DI ts 
DI Is 

OS {« 
SI t^ 

JUMP 
END ; 
SI J» SI 
01 ts DI 



PERCENT ; 
DC ThEN 



T f 
DI * 
CHR i 

s ; 

OUT 2 



1 J 



TO AROUND 



I i 



END 
SI J? 
SI *s 

C I* s 

SI 5» 
DI J = 

IF 8 S 

BEGIN 

TALI 

OVER 

TALL 

END ; 

Si i^ 

DI «« 

IF TOG 
DI S 

ELSE B 
OS J 
SI : 

END ; 

GO TO 

END ; 

IF Sc « 

IF SC "s 



) 
C 
SI 

I 

10 
LO 
C 



♦ 8 ) 

c c ; 

C EIGHTVl J 
s DC THEN 



80 I* TALLY J 

Y i« ; 

5 ; 
T ; 

GLE THEN 
"= DI ♦ I 
EGIN 
5 CHR ; 

s SI • I ; 



NEXT f 






THEN 
THEN 



JUMP 
JUMP 



OUT 

OUT 



SI j= 51 + u ; 
SI IB Loc c ; 

01 IS CHRS / 

05 ?■ WdS f 

LINEEOIT 1= TALLY ; 
JNEEDIT ; 
;An PR3CEDURE F I NAt.ANALYSIS ; 



END l: 

BOOLEi 

BEGIN 

STREAM PROCEDURE MQVE (S* D# SkPS^ SKPD' N) i 



VALUE SKpSf SKPD* N ; 
BEGIN 

LOCAL T ; 

SI l» LOC N ; 

01 »« LOC T ; 



START 



00327500 




0023 


00327600 




0023 


06327700 




0025 


00327800 




0025 


06327900 




0025 


00328000 




0026 


00328100 




0026 


0^328200 




0026 


00328300 




0027 


00328400 




0027 


00328500 




0028 


06328600 




0028 


00328700 




0026 


00326900 




0029 


00329000 




0029 


0P329100 




0029 


09329200 




0030 


00329300 




0030 


00330600 




0030 


09330700 




0031 


O03308OO 




0031 


00330900 




0031 


06331000 




0031 


00331100 




0032 


00331200 




0032 


O03313OC 




0032 


O033U00 




0033 


0O3315O0 




0033 


O03316OO 




0033 


00331700 




0033 


OC331800 




0034 


00331900 




0034 


00332000 




0034 


00332100 




0034 


06332200 




0035 


00332300 




0035 


0Q332400 




0035 


09332500 




0035 


00332550 




0035 


00332560 




0035 


00332570 




0036 


00332580 




0037 


00332600 




0037 


00332700 




0039 


00332800 




0039 


00332900 




0039 


00333100 




0039 


00333200 




0040 


00333210 




0041 


00333220 




0041 


00333030 




0041 


OF SIGMCNT 


** 


*#*««*** 


00333240 




oooo 


00333230 




0000 


O033326O 




0000 


00333270 




0000 


00333280 




0000 



i 



m 



• 



t 



i« 



• 



• 
• 

m 



m 



m 



m 



si 

01 

OS 
Si 
DI 

SI 
Dl 

T 



t ? 

ti> 

is 
CDS 



6 

7 



DS I* 
END MOVE ; 
INTEGER STREAM 
VAIUE C 
H } 

BEGIN 
LA8EU AGAIN* 

« 

SI 



SI ♦ 
01 * 
CHR } 

s ; 

D ; 

SI + SKPS 
DI + SKPD 
ts 32 ChR 

N ChR i 



OS ?* 32 GHR) } 



PROCEDURE Hunt (S* 0* c* N) ; 



XIT 



(» 







D 
8 

9 



DI 
DS 
OS 
\' TAULY ; 



f 

LIT 
WDS 



01 
SI 
SI 
DS 



\9 



LOC D ; 

Loc c ; 

SI * 7 , 
CHR } 



AGAINI 



S| %• I.DC N ; 

Si |a Si + 1 ; 

IF 7 SC = DC THEN 

GO TO XIT ; 

SI »» N / 

Si is Si • 8 ; 

N §?• SI I 

SI :« s ; 

DI Js LQC D ; 

IF SC = DC THEN 

GO TQ XIT ; 
S l« SI i 
SI IB HUNT i 
SI »s SI + 8 ; 

Hui^T 8* SI ; 

GO TO AGAIN i 
XITS 

END HUNT ; 
BOOLEAN STREAM PROCEDURE 
VALUE C * 

BEGIN 
LOCAL QUOTES* 
ENDQuOTE* 
ZERO* 

TEMP ; 

LABEL NOTHINGYET* 

BUMP* 

FCUNDQUOTE* 

FCUNDSEMICOLAN* 

LOOP, 

XIT* 



MORE (Image* input* c, chrs) ; 



00333290 
06333300 
0^333310 
00333320 
00333330 
00333340 
00333350 
0C333360 
00333370 
00333380 
00333390 
06333400 
0Q333500 
06333600 
00333700 
00333800 
09333900 
00334000 
00334100 
00334200 
O03343O0 
06334400 
0@334500 
06334600 
00334700 
00334800 
00334900 
06335000 
00335i00 
00335200 
00335300 
00335400 
09335500 
00335600 
06335700 
00335800 
06335900 
06336000 
00336iOO 
00336200 
00336300 
06336400 
00336500 
00336600 
00344000 
00344010 

09344500 
06345000 
06345500 
0034551O 
06346000 
00346500 
00347000 
00347500 
00348000 
06348500 
06349000 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0000 
0000 
0001 
0001 

0001 

0001 

0002 
0002 

0004 
0005 
0005 
0005 
0005 
0005 
0006 
0006 
0006 
0006 
0006 
0007 
0006 

000a 

0008 
0008 
0009 
0009 
0009 

ooio 

0010 
0011 

oou 

OQU 

oou 

0012 
0012 
0012 
0013 
0013 
0013 
0013 
0014 
0014 
0014 
OOU 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 
0016 



€ 
i 

i 

i 
i 
i 



• 

m 



d 

m 
m 
m 
m 



tXIT 



LOOP* 



; 

SI 
DI 
OS 
DS 
01 
DS 

IM 

SI 
01 
IF 



!« IMAGE ; 

js LQC QUOTES i 

t= a iiT ♦"•♦' # 

;= 6 LIT ".,un" 

J- LOC ENOQUOTE J 

i^ 2 IIT 



•♦;;« 



• 



• 



SI 
Sl 

c 

Si 
CI 
GO 
GO 
GO 
NOTHINGYE 
IF 

IF 
01 

8E 



EN 
SI 
DI 
IF 



AGE 

IS 

8 

GO 
ts 

t« 
t« 
J» 

t 9 

TO 
TO 
TO 

T» 
SC 

GO 
5C 

60 

|a 

(IF 

GIN 

TEM 

END 

01 

SI 

DS 

TAL 

MQR 

SI 

JUM 

; 

:s 

SC 
GO 



J* SI ; 

LOC c ; 

LOC ZtRQ i 
SC s DC THEN 
TO XIT ; 

c ; 

Si - e ; 

SI ; 

IMAGE ; 

CI + f^ORE i 

NQTHINGYET ; 

LOOP i 
F0UND8UQTE ; 

» ALPHA THEN 
TO BUMP ; 

B " " THEN 
TO BUMP ; 
LOC QUOTES ; 
SC s DC THEN 

p j« SI ; 

QUQTE »» DI i 
Js LOC ENDQUOTE 
Js ENDQUOTE ; 

»5! I CHR ; 

LY Js ii ; 

E J= TALLY ; 

;= TEMP ; 

P OUT TO LOOP ; 



SI - 
DI + 



1 ; 
n ; 

THEN 



TO FOUNDSEMICOLAN 



BUMP 
FOUN 



Si + 

LOOP 



SI JB 

GO TO 

DQUOTEJ 
DI ts 

IF SC * 

BEGIN 
01 IS 
OS ?« 
lAULY 

MORE 

END ; 

GO TO LOOP 



LOC ENDQUOTE ; 
* DC THEN 



1 



M • H 



01 
LIT 

««B ; 

»B TALLY 



XJTI 



m 
• 



003^9X00 




0016 


00349500 




0016 


06350000 




0016 


0^350500 




0016 


00351000 




0017 


06351100 




0018 


00351200 




ooia 


0035I3OO 




0018 


093513J0 




0018 


06351330 




0019 


O03513AO 




0019 


00351350 




0019 


00351360 




0020 


O0351370 




0020 


0P351380 




0020 


00351390 




0021 


0035H00 




0021 


00351500 




0021 


00352000 




0022 


06352500 




0022 


00353000 




0022 


00353500 




0022 


00354000 




0022 


00354500 




0023 


00355000 




0023 


09355500 




0024 


00356000 




0024 


00356500 




0024 


00359000 




0025 


00359500 




0025 


00360000 




0026 


00360500 
00361000 




0026 




0026 


00361500 




0027 


00362000 




0027 


00362500 




0027 


00363000 




0027 


00363500 




0028 


00364000 




0026 


06364100 




0028 


00364200 




0026 


O03655OO 




0029 


00369000 




0029 


00371500 




0030 


00372000 




0030 


00372500 




0030 


00374500 




0030 


00375000 




0030 


00375500 




0031 


00376000 




0031 


00376100 




0031 


00376200 




0032 


00376500 




0033 


00377000 




0033 


00377500 




0033 


00376000 




0033 


00378500 




0033 



• 

# 

• 



m 
• 



• 

m 
'• 
• 



SJ IS LOC EINOQUCTE 
DI «s IMAGE ; 
DS te 2 CHR i 

GO TO EXIT / 
FOUNDSEMICOLANI 

TALLY Sx I i 
MORE Ja TALLY ; 
SI tm LOC C t 
DI J'?' CMRS ^ 
OS fs WQS ; 
SI »s LOC C ; 
DI »= LOC TEMP ; 

Si »»! Si + 6 ; 

DI »e DI + 7 ; 
DS J» CHR / 
SI »e IMAGE ; 

SI sa SI + I ; 

DI »« INPUT ; 
TEMP CDS »= 32 
DS js? C CHR i 



CHR ; DS i» 32 CHR) ; 



EXITI 

E 
INTEGE 
VALUE 

C* 

P# 

Q r 

B 

LOCAL 



ND MORE ; 

R STREAM PROCEDURE 

TAB* 



FIX tIM* TAB# C» 2* P' Q) 



EGIN 

T i 
P C 






THEN 



• 



§1 * II 
? «*" THEN 



SI :s IM 

IF SC « 

BEGIN 

SI im 

IF Sc 

BEGIN 

SI J- c ; 

SI 8= SI • e 

C ?« Sl I 
TALLY ;» I ; 
FIX J» TALLY 

END ; 



SI 
DI 
DS 

OS 

SI 

DI 

SI 

DI 

OS 

SI 

SI 

DI 

01 

T ( 

DS 



END) 
1= 2 

1 = 



z 

8 
9 



IS 

OS 



« 

LIT " 
WDS J 

LOC c ; 
LQC T ; 
SI + e ; 
DI + 7 ; 

CHR f 

IM ; 

SI * FIX . 

2 ; 

Dl 4 TAB . 
I* 32 CHR 
C CHR ; 



; OS Is 32 CHR) ; 



00378600 
QP3787Q0 
00378800 

00378900 
00378910 
00378920 
00378930 
09378940 
003789S0 
00378960 
00378970 
09378980 
00378990 
06379000 
06379010 
00379020 
00379030 
00379040 
00379050 
00379060 
00379070 
09379S00 
00380000 
00380500 
00381000 
0038UOO 
00381200 
00381500 
00382000 
00382100 
00382110 
00382120 
00382130 
00382140 
00382150 
00382180 
00382190 
00382200 
0«382210 
OP382220 
00382230 
00382240 
00382500 

03383000 
09383500 

00384000 
00384100 
00384200 
00384300 
00384400 
00384500 
00384600 
00384650 
00384700 
0038480C 
06384900 
00385000 



T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0033 
0034 
0034 

0034 
0035 
0035 
0035 
0033 
0035 
0036 
0036 
0036 
0036 
0037 
0037 
0037 
0037 
0038 
0038 
0040 
0040 
0040 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0042 
0043 
0Q43 
0043 
0044 
0045 
0045 
0045 
0046 
0046 
0046 
0046 
0046 
0047 
0047 
0047 
0048 
0049 
0049 
0049 

0049 
0050 

ooso 

0050 
0051 
0051 
OOSl 
0053 






# 

• 

• 

• 






# 

• 

• 
• 

;• 

m 

€ 



SI J- 2 ; 

Di «" IM ; 

DS ;s 10 WDS ; 

Q (DI «= IM ; OS t= I LIT "0") I 

END FIX ; 
INTEGER Cf 

Hf 

K ; 

LABEL ERR# NEXT ; 

NQSTAR is criRSTCHAR (IMAGE £03) NEQ "*♦• QR H »* CHRS a 0) 

AND REAOWRITEFILE i 

notfirstinput «= MOREiNPyt ; 

IF NOSTAR THEN 
BEGIN 

I »s IF COBOLFILE THEN 6 ELSE ; 

IF XDEX GEQ THEN IF BOOLEAN CxFlLETYPE) THEN J !• ; 

MOHEINPUT J" FALSE / 

IF H + TABAMOUNT GTR LENGTH THEN 

SO TO ERR ; 
H J= H + TABAMOONT + I - FIX UMAGE' TABAMQUNT ♦ I* H, 

ZIPPY# TRANSLATING AND H G|Q 2^ I « 6? I 
IF COLUMNS THEN 
BEGIN 

FOR K »s 1 STEP I UNTIL COLSTQPS DO 
IF I }" MIN CH* MAXCQLSTOP) NeQ 

c «s Hunt cimage* zippy» character* u then 

BEGIN 

WHILE C GEQ I M COISTOP tK3 OO 

K !s K + 1 i 

I s= i " 1 ; 

MOVE (IMAGE* ZIPPY* 0* 0* C) i 

IF H «s H + I - (C «' C ♦ 1) GTR FULLLENGTH THEN 

BEGIN 



ERR} 






FINALANALYSIS 1= TRUE ; 

ERROR (NEXT* 0* "INPUT "* "OVERFLW"? ' 
END ) 
MOVE UMAGE ECa^i'^33* ZjPPY cj, [411433* C,C45;33* 

I.U5133* H - I) ; 
MOVE (ZIPPY, IMAGE* 0* 0* 80) I 
END ELSt. 

K !s 5 ; 

END ; 

CHRS «=* h ; 

IF XDEX ISS aND NOT INLiNeTOg aNq N »» N+jNc LSS iNpiNlTY THEN 
INRITESEQUENCE * 

N J* N ^ INC j 
END 
ELSE 
BEGIN 

IF H GTR 2«Q THEN 

60 TO ERR * 
INIINETOG la FALSE ; 

MOReINPuT »» MORE (IMAGE' ZiPPY* H* NCHRS) ; 
IF MOREINPUT THEN 

WRITE (lO CUS£R ♦ MAXUSeRS]* 30* ZiPPY I*}} i 
END t 



003890Q0 


T 


0054 


00389500 




0054 


00390000 




0054 


09390100 




0954 


00390^00 




00S6 


09390505 




0057 


00390508 




0057 


09390510 




0957 


00390530 




0057 


06390540 




0057 


00390550 




0062 


00390560 




0065 


00390570 




0067 


09390580 




0068 


09390590 




0068 


00390595 




0070 


00390600 




0075 


06390610 




0077 


00390630 




0082 


0p390640 




0082 


00390650 




0986 


00390660 




0090 


00390670 




0091 


00390680 




0091 


00390690 




0095 


00390700 




0998 


09390710 




9i02 


00390720 




0102 


09390730 




0105 


00390760 




0107 


09390770 




0108 


09390780 




9U1 


00390785 




0116 


09390790 




0116 


09390795 




0117 


09390800 




0U7 


00390905 




0U2 


09390810 




0122 


00399820 




012S 


09390840 




0127 


09390850 




0129 


00390860 




0129 


09390870 




0131 


00390875 




0131 


09390880 




0133 


90390910 




9136 


09390920 




0138 


09391110 




0139 


00391120 




0139 


09391130 




0139 


00391140 




9143 


QG39US0 




9142 


00391160 




0143 


9939Ur0 




9145 


0039n7S 




0191 


09391180 




0151 


00391190 




0157 






t 



# 



m 
m 






• 



next; 

END FINAI./INAI.YSIS i 

INTEGER C^ 

LASTuSER ; 
REAL X ; 
LABEL AGAIN* 

INPUTFULL* 

EXIT, 

NEXT, 

ESCAPE ; 
INTEGER PROCEDURE KEAOT^X i 
BEGIN 
LABEL NONE, TRQueLt, EXIT i 

REAL TIMEOUT, X ; 

INPUT C53 :* i "«-"ClS43S53 i 
IF NOT Q THEN 

TIMEOUT := IF QUTPUTREADY THEN MAXC O'MINC 15* C TN-T JMEX-60>/6C J ) 
ELSE 15 ; 
READ CTWXINPUT C0» TIMEOUT)* 8' JNPUT 1*1) [NONE t TH0UBLI3 ; 
6C TO EXIT ; 
NONE« 

IF Q THEN 
BEGIN 

USER IS MAXU3tRS ; 

REAOTWX ?* I J X ESCAPI 

GO TO EXIT } 
END ; 
IF QUTPUTREADY THEN 

OUTPUT ; 

Tl 1= TIMEX ; 

FOR USIR »* STEP i UNTIL BlGBlRO OO 

BEGIN 

Check cstationd ; 

IF BOOLEAN C ABNORMALCnD J THEN 
BEGIN 

REAOTWX l» 1 ; 
60 TO EXIT i 
END ; 
IF X J' (Tl - TIMED/lOOO LSS THEN 

X 1= X + 5184 ; 
IF X GTR 15 AiND X LSS 100 THEN 
BEGIN 

IF X LSS 18 THEN 

FISSTCHANCE |s» 
ELSe IF X GtQ 36 THEN 
BEGIN 

WRITE (PRfcTANK [*], EOJ) i 
WRITETWX i 

ABNORMALEND i^ READTrtX i- X } 
GO TO EXIT i 
END ELSE IF FIRSTCHANCE * THEN 
BEGIN 

EjRSTCHANCE != I ; 

X Is TIMEI ; 

ERRORX i7f "LOOK "* "ALIVEi " ) * 



00391210 T 0J37 

09391330 T OlSe 

19 IS iei LONG* NEXT 3EG 

00391240 T 0041 

00391250 T 0041 

06391260 T 0041 

00392000 T 0041 

06392500 T 0041 

O0394S0O T 0041 

00394600 T 0041 

0C394700 T 0041 

00394800 T 00*1 

00394900 T 0041 

00395000 T 0041 
START OF SEGMENT ********** 

00395100 T 0000 

00395200 T 0000 

00395300 T 0002 

00395400 T 0003 

00395900 T 0009 

06395600 T 00J2 

00395700 T 0020 

00395800 T 0021 

06395900 T 0022 

06396000 T 0022 

00396100 T 0023 

00196200 T 0024 

00396300 T 0024 

00396400 T 0025 

00396500 T 0025 

00396600 T 0025 

00396700 T 0026 

00396800 T 0028 

00396900 T 0029 

00397100 T 0029 

06397200 T 0031 

00397300 T 0032 

00397400 T 0032 

00397500 T 0033 

09397600 T 0034 

06397700 T 0034 

00397800 T 0037 

00397900 T 0039 

00398000 T 0041 

00398JOO T 0041 

00396200 T 0042 

00398300 T 0044 

0039840C T 0047 

00396500 T 0048 

00398600 T 0052 

00398700 T 0052 

00398800 T O0S5 

O03989OO T 0055 

00399000 T 0058 

06399100 T 0058 

00399200 T 0060 

00399300 T 0062 



c 

i 



17 



20 






€1 



• 



TIMEI J« X ; 
END ; 

END i 

END ; 

READTWX J* 2 i % AGAIN 

6C TO EXIT ; 
TROUBLP J 

READ CTWXINPUT (0* 0)# l# INPUT C*3) } 

INPUT tU »« "i" ' 
EXITS 
END READTWX ; 

PROCEDURE INITIALUE ; 

BESIN 
MONITOR INTQVR, FUAG ; 

INTEGER I* 

c ; 

REAL U ; 

BOOLEAN QLDUSER ; 
DEFINI DIRCTRY » GflNTR0L3# ; 
LABEL OLD* 
FAULT» 
NEW* 

MAILCALL* 
NEXT ; 

USER 1= BIGBIRO Js BIGBIRO + I J 

ATTACH ; 

STATIONI »= STATION ; 

IF USERCODEI !- USERCCDE = - I THEN 

USERCODE »s QCTUEX ( lOOxSTATION, C9 I 4 3 + STATIUN, t !« 5 ^ 3? * 
COUNII »» ""l ^ 

iLFCRi »s 1 ; 

ERRORX (7# "VERSION"* OCTCEX (VERSION)) i 
FAULTt 

READ (Rl C453* 90* DIRCTRY C*3) ; 

IF QLDUSER THEN 
BEGIN 

OLSUSER J« FALSE } 

I j» c ■► c ; 

ERROR COLD* 0* "BACKUP "' "ERROR* ") } 

END ; 

c »= 200 ; 

FOR I «« STEP 2 WHILE U != DIRCTRY Hi NEQ 12 00 
IF USERCODE » U THEN 
BEGIN 

QLDUSER »= TRUE ; 

IF STATION s OIRCTRY El ♦ 1] THEN 
GO TO OLD * 

c »' I ; 

ENQ ELSE 

IF U - ANO NOT QLDUSER THEN 

c i" I ; 

IF C NEQ 200 THEN 

I tw C 
ELSE IF I LEQ 88 THEN 

DIRCTRY tl + 23 «= 12 



20 



START 



06399400 




0063 


00399500 




0065 


09399600 




0065 


00399700 




0065 


00399600 




0067 


0?399900 




0068 


00400000 




0071 


00400100 




0071 


00400200 




0077 


09400300 




0078 


0040C40C 




0079 


S 84 LONG* 


NEXT SEG 


00406000 




0041 


00407000 




0041 


00407500 




004J 


OF SEGMENT 


********** 


06408000 




0002 


004C6100 




0002 


06406200 




0002 


00406500 




0002 


00408600 




0002 


00409000 




0002 


00409500 




0002 


09410000 




0002 


00410500 




0002 


06410600 




0002 


00420000 




0002 


00421000 




0004 


00<>21500 




0005 


00422500 




0007 


06423000 




0010 


00426000 




0014 


06426100 




0016 


06427900 




0018 


00427910 




0020 


00427920 




0021 


00427930 




0026 


06427940 




0026 


06427950 




0027 


06427960 




0028 


06427970 




0029 


00427980 




0034 


00428000 




0034 


00428100 




0034 


00428200 




0039 


O0428300 




0040 


00428400 




0040 


06428500 




0041 


00428600 




0043 


00428700 




0043 


06428800 




0044 


00428900 




0044 


06429000 




0046 


00429100 




0048 


00429300 




0046 


00432500 




0049 


00433500 




0051 



17 



21 



• 



• 

• 

• 



• 



♦ t 



• 
• 






0UD8 



• 



m 

• 



NEi^J 






EUSE 
WHIIE 



DiRcTHY n !« I - 23 kss DO ; 



C ;s SLOTI IS I 
0IRCTRY £13 «- 
DIRCTRY CI + n 

Write <ri iu5h 



/ 2 ; 

■ U5ERC0DE f 
«a STATION # 
90* DIRCTRY C*3) 



IF NiT OLDUSER THEN 

GO TO NEW i 
INTOVR is FAUUT ; 
FLAG !s FAULT i 

restorestate ; 

STATION ;s STATIONI ; 

IF VN LSS 9H QR VN GTR VERSION THEN 

60 TO FAULT ; 
IF FILECLOSED THEN 

GO TO MAILCALL f 
If D GTR MAXFILELENGTH THEN 

GO TO FAULT i 

Read seek (R2 C32 x cJ) } 
securitycheck ; 

IF input C53 + 2 LSS OR INPUT t33 NEQ 10 THEN 

ERROR (MAILCALL' 3* PREFIX* SUFFIX) ; 
AT J= D. LEFTSIDE i 
FOR I '= STEP i UNTIL AT 00 

READ CR2# 256, LINKLISTS [USER32 + I* *}) tFAULT3 * 
AT J- ; 

FOR I »* 1 STEP 1 UNTIL DO 
BEGIN 

IF AT N£« LL CAT Is LL C AT 3 « TJ , F THEN 

I ;= 

else if at 5 1 then 
error (next* 6* prefix* suffix) ; 
End ; 

ERROR 



(MAILCALL* 7, 
132 X C ♦ 



WRITE (R2 

LOCK CR2J ' 

USER32 Is? USER x 32 i 

BQOL 1= INITIALBOOL ; 

INC t« 100 ; 

MACROLIBRARY 1= "MACRO " * 

CHARACTER '•- "#" i 

SAVEFACTOR I* 7 } 

COLSTQPS IB STRING! 1= ; 

FILL RSWD C*3 WItH "ExECUTE*** 



"LlNKLlS"* "T ERROR") 

3n* 1* IMAGE c*3) ; 



••DITTO ••* "COPY "* "INLINE "# 



"ZIP "* "CHANGE 

"PUNCH ", "PRINT 

"COLUMN "» "SCAN 

"PERCENT"* "QUICK 



"* "EDIT « 
", "DELETE •• 



"SAVE 

"CLOSE 



»» 



»» 



"* "LISTING"* "INC 



'* "LIST 



"OPEN 



"TEACH "* "REMOVE "* "REPLACE"* "END 



* 
"* 
"* 



* "RESEQ "* 

"COMPILE"* 



"TAB 
"MAIL 



MAILCALLI 

FILEACCESS I* 
INORDER 15 TRUE 

NIXTI 



00<J34500 T 0052 

00435000 T 0053 

00436500 T 0057 

00437000 T 0057 

00437500 T 0060 

06436000 T 0061 

00438500 T 0063 

00438600 T 0068 

00438700 T 0068 

00439500 T 0069 

0044050C T 0070 

00441000 T 0072 

00441500 T 0073 

00441800 T 0075 

00441900 T 0077 

08443000 T 0078 

00444500 T 0078 

00445100 T 0079 

00445200 T 0080 

00445300 T 0080 

00447000 T 0086 

06450000 T 0088 

00452500 T 0090 

00453000 T 00911 

00453100 T 0095 

09453200 T 0096 

00453500 T OlOft 

09454000 T 0105 

06454100 T 0106 

06454400 T 0106 

00454500 T 0114 

00454600 T 0414 

06455000 T 0J16 

00455100 T 0119 

00456500 T 0l2l 

00458500 T 0125 

06459000 T 0125 

00459500 T 0131 

00460000 T 0132 

00461000 T 0134 

00462500 T 0134 

0Q462900 T 0U5 

00463000 T 0136 

00463500 T 0137 

06465000 T 0138 

00466000 J 0140 
START OF SEGMENT ********** 

00466500 T 0142 

00467000 T 0142 

00467500 T 0142 

06468000 T 0142 

00468500 T 0142 
22 IS 28 LONG* NEXT SEG 

00469000 T 0142 

00469100 T 0143 

00469200 T 0143 

00469300 T 0145 



€ 

i 
i 

i 

i 
i 
i 
i 









22 



21 



€1 

m 



m 
m 

m 

m 






TRANSLATEI Js REAL (TRANSLATING) ; 
VN l» VERSION ; 

IRRORX C0# (IF XFILE ("MAIL % "# USERCOOE* -U * ? THEN "MAIL % " 
ELSE "HELLO ") & REAL (NOT OLDUSER) C^2» 47 J U » USERCODE) / 
END INITIALIZE i 

lastuser {« kaxusers i 
If qinrut then 

BEGIN 

GINPUT Js FALSE } 
GO TO INPUTFULL f 

End ; 

If STATION NE^ THEN 
BEGIN 

LASTUSER J* USER ; 
NEXT* 

IF MORE THEN 
GO TO EXIT ; 

END ; 

IF NOT Q AND HEADYQTOP 6TR THEN 
BEGIN 

lastuser »= real (waitx (0* boolean (3))) ; 

securitycheck ; 

go to exit j 

End ; 

AGAIN* 

CHARGE (0) ; 

IF 2 « BIGBIRD LSS C {= STATUS (ZiPPY [*3) - 2 THEN 

BEGIN 

LASTUSER »* BIGBIRD + 1 i 

FOR X 1= STEP 2 UNTIL C DO 
BEGIN 

STATION »« & ZIPPY tX] C9I9J93 ; 
FOR USER »* STEP 1 UNTIL BIGBIRD DO 
IF STATION = STATION! THEN 
USER Ss MAXUSERS } 
IF USER LEQ MAXUSERS THEN 
BEGIN 

IF BIGBIRD LSS NAXUSER THEN 
BEGIN 

USERCODE {= ZIPPY CX + 13 i 
INITIALIZE ; 
GO TO NEXT ; 
END * 

NOMQRERQOM ; 
END ; 

END ; 
End ; 
if x ;» readtwx neq then 

BEGIN 

IF X - 2 THEN 

GO TO AGAIN i 
GO TO ESCAPE ; 
END ; 
INPUTFUUH 

X JR INPUT COJ ; 
USER s« ; 



004i'2l00 T 
00472200 T 
0048950G T 
00^90000 T 
00490500 T 
21 IS 166 LONG* 



0049060C 
00491000 
00491100 
00491200 
00491300 
00491400 
00493200 
00493300 
00493400 
00493410 
00493500 
00494000 
00494400 
0©494600 
00494700 
00494800 
00494900 
00495000 
00495100 
0Q495200 
00495300 
00495500 
00495600 
00495650 
00495700 
00495800 
00495900 
00496000 
00496100 
00496200 
00496300 
0§496400 
0^496500 
00496600 
00496700 
00496800 
00496900 
00497000 
0Q497100 
00497300 
00497400 
00497500 
00497600 
00497700 
06497800 
00497900 
00498100 
09498300 
0Q106000 
00506100 
00506500 



0146 
0J48 
0149 

0153 
0155 
NEXT SE6 
0041 
0041 
0042 
0043 
0044 
0045 
0045 
0046 
0046 
0047 
0048 
0048 
0049 
0049 
0051 
0051 
0053 
0054 
0055 

0055 
00S6 
0057 
0061 
0062 
0063 
0065 
0065 
0067 
0068 
0069 
0073 
0074 
0074 
0075 
0075 
0077 
0077 
0078 
0078 
0079 
0079 
0081 
0081 
0083 

0063 
0064 
0064 
0065 
0065 
0066 
0087 



i 

i 



u 



i 
f 
• 

• 



m 






m 

# 
m 



THEN 

30, IMAGE 



1*1) i 



CU' 



IMAGE* 
GTR 



2^0* 2*^1? 



f CHRS t' 0) 



THEN 



JS ♦»*♦♦ 



THEN 



t*]) 



• 






WHILE STATIONI NEQ )i XC9»959] 00 
IF USER ?» USER + 1 GTR BIGBIRD THEN 
GO TO AGAIN / 

CHARGE (X) ; 

If C 5- CHRS NEQ 
READ (10 CUSER3# 

BREAKI }!? ; 

IF UNEEOIT (INPUT 

TRANSLATEI# C 
ERROR (AGAIN* 7f "DEt.S/*' 

if boolean (x.csstu) then 
Begin 

IF FIRSTCHAR CINPUT C53) 
C «= C - 4 i 

CHRS »s c ; 

WRITE (lO CUSER3* 30* IMAGE 

GO TO AGAIN ; 
END ; 
IF BOOLEAN (InREADYQ) THEn 

ERROR (AGAIN* 7* "PLEASE «* "rtAlT...") ; 
MrITELFCR * 

CHRS :=» c ; 

CLOCK ''- TO ; 
Tl S» TIMEX ; 

If outputreaoy then 

NEXTCLOCK J? CLOCK - TO x (TN - Tl 

if lasfuser neq lastuser i^ user then 

restorestate ; 
securitycheck ; 

WaITFLAG t» FALSE * 
exit: 

IF finaLanalysis then 

GO TO NEXT f 
IF OUTPUTREAOY THEN 

IF TN - 60 LEQ TiMEX THEN 
OUTPUT * 
ESCAPES 

END REAOIN * 

DEFINE RDISC (RDISCI* R0ISC2) - 

IF ROISCX (RDlbCl* R0ISC2) THEN 60 TO NEXT* f 
BOOLEAN PROCEDURE ROlScX (WHeRE^ IMaGE) * 
VALUE WHERE i 
INTEGER WHERE * 
ARRAY IMAGE CO] ; 

BEGIN 
LABEL EOF ; 

STREAM PROCEDURE ZQT (D) ; 
BEGIN 

DI J« ' 
CS ;s RESET ' 
END ZOt f 

IF PREWHERE + I NEQ PREWHERE := ABS (WHERE) 

READ SEEK (DISC CPREWHERE3) ; 
READ (DISC 10* IMAGE 1*1) CEQF3 ', 



90) / 150 i 



- 2 THEN 



00507000 


T 


0087 


09507500 


T 


0091 


08507600 


T 


0093 


00508000 


T 


0094 


0050850C 


T 


0995 


00509000 


T 


9997 


00511000 


T 


9103 


oesisooo 


T 


0195 


00512100 


T 


9108 


00512300 


T 


Olio 


00512500 


T 


0116 


00512600 


T 


0116 


00513000 


T 


0M7 


00513500 


T 


0119 


00513700 


T 


0121 


00514000 


T 


0123 


00520000 


T 


0128 


00520500 


T 


0128 


09520600 


T 


0128 


0Q52O700 


T 


0129 


09520800 


T 


0134 


00520810 


T 


0134 


00520850 


T 


0136 


00520900 


T 


9137 


09520950 


T 


9139 


00520960 


T 


0139 


09522000 


T 


0144 


00522500 


T 


0145 


00522600 


T 


0146 


00522700 


T 


0148 


00532000 


T 


0150 


00532500 


T 


0150 


09533500 


T 


9150 


06533600 


T 


9151 


06533700 


T 


9151 


0Q533800 


T 


9154 


09534500 


T 


9155 


09546500 


T 


9155 


U IS 160 LONG* 


NEXT SEG 


00547000 


T 


9051 


00547100 


T 


9051 


09547200 


T 


0051 


09547500 


T 


0051 


00548000 


T 


9951 


00548509 


T 


0051 


00549999 


T 


9951 


99549500 


T 


9951 


00549600 


T 


9951 


START OF SEGMENT 


1, if * il * in, * if * 


06549710 


T 


9900 


00549720 


T 


9999 


00549730 


T 


0000 


09549740 


T 


0000 


06549750 


T 


0000 


00550000 


T 


0000 


00550500 


T 


0003 


09551000 


T 


0099 



i 
i 
i 
i 
i 



• 



2^ 






;• 
• 



IF CQBOLFILE THEN 
ZOT (IMAGE) ; 

If where ISS THEN 
SEQUENCE ; 

IF FAtSE THEN 

BEGIN 



EOFJ 



ERRORX C5# "AT 


SEQ*"* 


RDISCX ;s TRUE 


f 


PREWHERE := -2 


• 


END ; 




END RDISC ; 





OCTOEX (N)) ; 



23 IS 



00551010 T 
08551020 T 
00551030 T 
06551040 T 
00551100 T 
00551150 T 
00551200 T 
0©551250 T 
00551350 T 
00551400 T 
00551450 T 
0055150Q T 
44 UONQ, 



DEFINE WRITEAT « 

IF WRITEATX (QUICK* ^N* RECORD) THEN 
GQ TO NEXT# i 
BOOLEAN PROOEDURE WRITEATX (QUICK' NN» RECORD) ; 
VALUE QUICK* NN J 
BOOLEAN QUICK ; 
INTEGER NN } 
ARRAY RECORD C03 ; 

BEGIN 
LABEL NEXT ; 

N Js A8S (NN) ; 

IF NOT COBOLFiLE THEN 

WRITESEQ i 
IF NN LSS Then 

RDISC (AT* RECORD) ; 
IF COBOLFILE THEN 

REGORD C03.UJ353 Is OCTDEC (N) J 
WRITIROW (RECORD* QUICK* FILEINFO) I 
IF BOOLEAN (BREAKi) THEN 



START 



NEXTJ 



END 



WRITEATX 
WRITEAT . 



»' TRUE ; 



00552000 
00552500 
00552800 
06552900 
0Q553000 
00553100 
00553200 
O0S533OO 
00553400 
0055400C 
00554100 
OF SEGMENT 
00555500 
00556000 
00556500 
00556600 
00557000 
06557500 
00558000 
00558500 
00559600 
00559700 
00559800 
00560000 



0014 
0015 
0016 
0017 

0032 
0032 
00 33 
0034 
0036 
0037 
0038 
0038 
NEXT SEG 
0051 
0051 
0051 
0051 
0051 
0051 

cost 

0051 
0051 

0051 
0051 



24 



DEFINE WRITEME (WRlTEMEi* WRITEME2) s 

IF WRITEATX (QUICK* WritEmEI' WrITEmE2) THEN 
GO TO NEXT# i 



24 IS 18 LONG* 



TOGGLE (OLDVALuE* I) ; 



BOOLEAN PROCEDURE 
VALUE OLDVALUE* 

I ; 
BOOLEAN OLDVALUE j 

REAL I ; 
BEGIN 

LABEL NEXT ; 



IF I 9 3 THEN 
BEGIN 

IF REAL (OLDVALUE) » "ALGOL " THEN 

TOGGLE Ja BOOLEAN (ALGOL) 
ELSE IF REAL (OLDVALUE) • "XALQOL " THEN 
TOGGLE «» BOOLEAN (XALGOL) 

Else if real (oldvalue) - "data " then 



START 



00560J00 
00560200 

00560300 
00560500 
00561000 

00561500 
00562000 
00562500 
00563000 
00563500 
00564000 
OF SEGMENT 
00564100 
00564110 
OQ564120 
0Q564130 
00564140 
00564150 
00564160 



0000 
0001 
0001 
0002 
0003 
0006 
0006 
0010 
0012 
0013 
0014 
0014 
NEXT SEG 
0051 
0051 

0051 
0051 
0051 
0051 
0051 
0051 

oc&i 

0051 
0051 



i 

i 
i 
« 

# 
• 
• 
• 



********** 

T 0000 

T 0000 

T 0001 

T 0002 

T 0002 

T 0005 

T 0006 



25 



• 



• 

• 



i 



TOGGLE »» BOOUEAN (DATA) 0Q564170 T 0009 

_ EtSE IF REAL COLDVAlUE) - "FORTRAN" THEN 06564180 T OOIO 

• TOGGLE «■ BOOLEAN (FORTRAN) 00564190 T 0013 § 

ELSE IF REAL (OLDVALUE) - "COBOL " THEN 00564200 T OOU 

TOGGLE J= BUOLEAN (COBOL? 00564210 T 0017 

• ELSE IF REAL (OLDVALUE) « "BASIC " THEN 00564220 T 0018 1 

TOGGLE ;:= BOOLEAN (BASIC) } 0Q564230 T 0021 

^ 60 TO NEXT ; 00564240 T 0023 

• END ; 00564250 T 0025 i 

IF (IF I = 1 THEN EMPTYl ELSE EMPTY2) THEN 00564500 T 0025 

ERROR (NEXT* 7* PARAMETERO> ONOFF (TOGGLE !« OLOVALUE)) i 00565000 T 0028 

• I Ss IF I = 1 THEN PARAMETERl ELSE PARAMETERS ; 00565100 T 0035 g 

IF NOT (TOGGLE J* I « "ON ") THEN 00565500 T 0037 

:^ IF I NEQ "OFF " THEN 00566000 T 0039 

• ERRORX (0# "MISSING"* " ON/OFF") ; 00566500 T 0040 H 

NEXTt 00567000 T 0042 

END TOGGLE ; 00567500 T 0043 

• 25 IS 50 LONG* NEXT SEG 2 C 

DEFINE FILETYPe (FILETYPEI) ?= REAL (TOGGLE (BOOLEAN (F JLETYPEI )* 3))# ; 00567600 T 0051 

^******************************* 00568000t0051 

• BOOLEAN PROCEDURE VERIFAX (XEROX* pD) ; 00680000 T 0051 f 

VALUE XEROX* DO / 00680500 T 005J 

INTEGER XEROX* 00681000 T 0051 

• DO ; 00681100 T 0051 g 

BEGIN 00681500 T 005l 

^ DEFINE 00681600 T 0051 

• START OF SEGMENT ********** 2j§ % 

PRINTINQ = XEROX s 2#* 00681700 T 0000 

PUNCHING = XEROX = 4#* 00681800 T 0000 

• ZIPPING = XEROX = 8# * 00681900 T 0000 H 

FILE COPY DISK SERJAL tSOlOO] (2* 10* 150* SAVE SAVEFACTOH) * 00682000 T 0000 

BOOLEAN B ; 00683500 T 0006 

• RIAL L i 00684000 T 0006 

LABEL NEXT * 00684500 j 0006 

XLOcKED 8- TRUE * 00687000 T 0006 

• IF BOOLEAN (XEROX) THEN 00687500 j 0008 

BEGIN 00688000 T 0008 

^ FILL COPY WITH PREFIX, SUFFIX, ** *, *, 12 * 00689000 T 0008 

• L ts FIRST » 00691000 T 0012 

WHILE AT t' L.T NEQ I OQ 00692000 T 0014 

BEGIN 00692500 T 0016 

• N is (L »= LL CAT3),S * 00693000 T 0016 

ROISC (-AT* ZIPPY) ; 006S3500 T 0021 

WRITE (COPY* 10* ZIPPY [*]) ; 0Q695500 T 0023 

• INTERRUPT (1) ; 00696000 T 0027 

END i 00696500 T 0033 

READ COISC CO]) ; 006^7500 T 0035 

• DETACH ; 00698000 T 0040 

CLOSE (DISC* PURGE) ; 00698500 T 0041 

LOCK (COPY) ; O06995OO T 0043 

• REATTACH * 00700000 T 0044 

INORDER ;= TRUE ; 00702500 T 0045 

^ FILEACCESS ?s } 00705500 T 0047 

• SAVESTATE * 00706000 T 0048 

END XEROX 00706500 T 0049 

^ ELSE 00707000 T 0049 

• BEGIN 00708000 T 0049 






parame:ter2/ 

IF PUNCHING 



*# ** ** 

THEN 22 ELSE 12 



• 
• 

}• 

# 



FILL COPY WITH PARAMETERS 
IF PRINTING THEN 15 ELSE 
IF PRINTING THEN 
BE0IN 

WRITE (ZIPPY t*3* 0AT£# PREFIX , C6S63# PREFIX* 

SUFFIX. t6?63# SUFFIX* (L «» TIME CD) DIV 216000* 
L DIV 3600 NOD 60* TIME (6)* MMODYY# 
US£RCOO£,E6J63, USERCODE) ; 
DETACH ; 

WRITE (COPY CDBLl* 17* 2IPPY C*3) ; 
REATTACH f 

END ; 

L «= N ; 
DD »=» M »s ; 

B »s PRINTING AND PARANETER2 = "DOUBLE " ; 
WHILE N t= LL EOD Js n [D03,T3.S LEQ PARAMETER^ DO 
IF PARAMETERS LEQ N THEN 
BEGIN 

RDISC (UD & (REAL tNOT Z IPPING ) ) 1 1 U7 J U * iiJPpY} 
IF PRINTING THEN 

ZIPPY tn] J* OCTOEX (M »s M + 1) & "tf" [ 1 S A3 « 5] 
IF B THEN 

WRITE (COPY CDBL3* 17* ZIPPY t*]) 
ELSE WRITE (COPY* 17* ZIPPY C*3) ; 
INTERRUPT (1) ; 
END 

ELSE M |s M + 1 ; 
IF ZIPPING THEN 

ZIP WITH COPY ; 
LOCK (COPY) ; 

N j= L ; 

END THERMOFAX ; 
IF FALSE THEN 
NEXT: 

VERIFAX J5 TRUE i 
XLOCKED Ss FALSE * 
END VERIFAX * 

DEFINE THERMOFAX (THERMOFAXl* THERM0FAX2? ' 
BEGIN 

Wait (KOUNT (pARA^^ETER3* PARAMETER^* CLOCK)* XLOCKED) ; 
If VERIFAX (THERMOFAXl* ThERMQFAX2) THEN 
GO TO NEXT ; 
END#* 
CReATeFILE (CREATtFlLEl) * 
BEGIN 

LIBRARY. AREAS 8s gO ; 

LIBRARY. AREASIZe := CREATtFlLEl ; 

LIBRARY, SAVE 5" SAVEFACTOR i 

Write (library* lo* recoro c*3) ; 

LOCK (LIBRARY) ; 
LIBRARY, AREASIZE l» J 
LIBRARY, AREAS U ; 

EN0#* 
CLOSEMYFILE » 
BEGIN 

IF NOT INQRDEH THEN 



00709000 
00709500 
06713000 
00713500 
0@7H000 
0071*500 
00715000 
00715500 
00716000 
00716500 
00719000 
00720000 
00720500 
00721000 
00721100 
00721500 
00722000 
00723000 
00723500 
00?24000 
00724500 
00726000 
00726500 
00727000 
00727500 
00728000 
00728500 
00729000 
00729500 
00730000 
00730500 
00731000 
00731100 
00731200 
00731300 
0073H00 
00731500 



26 IS 155 LONG* 



00731600 
00731650 
00731700 

06731750 
06731800 
00731850 
06731900 
00731950 
00732000 
00732010 
00732020 
00732030 
08732040 
0®732050 
00732060 
O07321OO 
00732150 
00732200 
09732250 



0049 
0052 
0017 
0057 
0058 
O067 

0076 

0086 
0092 

0093 

0097 
0098 
0098 
0099 

otoo 

0102 
0112 
OIU 
0113 
0117 
0118 
0122 
0123 
0126 
0134 
0140 
0140 
0142 

0143 
0144 
0146 
0147 
0147 
0147 
0148 
0146 
0150 
NEXT SEG 
0051 

0051 
0051 

0051 
0051 
0051 
0051 
0051 
0051 
0051 

0051 
0051 

0051 
0051 
OOSl 
0051 
0051 
0051 
0051 



i 
i 
i 

i 
i 

i 
i 
i 



• 
• 



• 






% 



BEGIN 

WAIT CKQUNT (1* FINJTY* CUOCK)* XtOCKED) t 
IF VERIFAX (17# CD + 1<») DIV 15 x i5) THEN 
GO TO NEXT ; 

END ELSE 

BEGIN 

FlUEACCESS 1= ; 

close (disc) ; 
End ; 

END# ; 
I*********************** 



DEFINE WOISC - IF WDISCX (IMAGE) THEN GO TO NEXT* / 
BOOLEAN PROCEDURE WDISCX (IMaGE? ^ 
ARRAY IMAGE CO] ; 

BESiN 
REAL L ; 






LABEL EOT* 
NEXT ; 
WHILE 



GTR 
L f T 

LSS 
L,F 

L.; 



CL 
f 

(L 

i THEN 



- LL 



19 LL 



CATntS DO 
tAT3),S DO 






• 
• 



EOT 



N 
AT IS 

whili n 

AT J = 
IF N NEQ 

Begin 
if d geq maxfilelength then 
error (next* 0# "file to''* »• longt ") , 

IF PREWHERE NEQ PRElsHERE ts D • 2 THEN 

READ SEEK (DISC CPREWHEHE + 13) ; 
L ;- LL CD »* D + 13 I* (L.T) & N tSFJ & 
MODIFY (D) i 
LL CAT3 , T ;? D ; 
MODIFY (AT) ; 
AT Js L.T ; 

IF AT NEQ 1 Then 

iNORDEfi i- FALSE } 
LL CAT3 , F J= C ; 
MODIFY (AT) ; 
AT }= D i 
END ; 

sequence ; 
If prewheRe * 

WRITE (Disc 
ELSE WRITE (DISC* 
N Js N ■•■ INC * 
IF FALSE THEN 
BEGIN 



T ;= AT J= L.T 



AT CFF3 ; 



1 NeQ PHEWHEf<E «= AT • 2 THEN 
[PREWHERE3* 10* IMAGE C*3) 
10* IMAGE £*3) CE0T3 ; 



* L.F 



LL CL.FJ . 
LL EATJ . F 
D '= • I Ji 
INOROER »* FALSE 
SHOW ("FILE "* 



"FULL. ") '' 



ERRORX (0, "PLEASE «, "REOPEN,") ; 



NEXTS 



WOiSCX 
END ; 



i9 TRUE * 



00732300 T 005i 

00732350 T 0051 

00732400 T 00$l 

00732450 T 0051 

00732500 T 0051 

00732550 T 0051 

0Q732600 T OOSl 

00732650 T OOSl 

00732700 T OOSl 

00732750 T 00$1 

00733000 T 0051 

08733500 T 0051 

00734000 T 0051 

00734500 T 0051 

00735000 T 0051 

00735100 T 0051 

START OF SEGMENT *******■' 

00735500 T 0000 

00735600 T 0000 

00743500 T 0000 

00744000 T 0005 

06744500 T 0007 

00745000 T 0012 

00745500 T 0014 

00746000 T 0015 

00746500 T 0015 

00747000 T 0016 

00747100 T 0022 

00747200 T 0023 

00747500 T 0030 

06748000 T 0038 

00748500 T 0041 

00748600 T 0046 

00749000 T 0049 

00749500 T 0050 

00750000 T 0051 

00750500 T 0053 

06750600 T 0058 

00751000 T 0061 

00751500 T 0062 

00752000 T 0062 

00752500 T 0076 

00753000 T 0078 

00753500 T 0082 

00753510 T 0091 

00753600 T 0092 

00753610 T 0092 

00753620 T 0093 

00753630 T 0094 

00753640 T 0100 

00753650 T 0106 

00753660 T 0107 

00753670 T 0109 

00753690 T 0110 

00753700 T 0112 

06753800 T 0U2 

06753900 T 0U2 



27 



m 






• 
• 

^9 



END WDISC ) 

INTEGER PROCEDURE GETPARAMETERS CN) i VAIUE N ; INTEGER N ; 

BEGIN 
INTEGER STREAM PROCEDURE STAR (S, Q, E) ; VALUE E f 

BESIN 
LOCAL N* 
PLUS, 

MINUS* 
CRCSSHATCH* 

K ; 

LABEL DEBLaNK# 
NALPHA* 

BLAf^K* 
NIMAlPHA, 
GETREPEAT ; 



09754000 T 
27 IS 122 LONG, 



0U2 
NEXT SEG 
OOSi 
0051 
0031 
0051 



********** 






Si 

SI 

ii 

5 

Dl 
E 



CDS 

IF 
IF 
SI 



S } 
SI - 
D i 
»* 8 

D ; 

SC s 
SC 5; 

SC s 

la 



LIT ♦♦ + #000000«) ; 






THEN 
THEN 
THEN 



JUMP 
JUMP 

JUMP 



UUT 
OUT 
OUT 



f 

TO 
TO 



GETREPEAT 
GETREPEAT 



5 
K 



; 



ALPHA 

I* 



f 

THEN 



SI + 
CTALLY J5« q 
:= TALLY ; 
PLUS Js TALLY 
MINUS := TALLY ; 
CROSSHATCH «- TALLY 
TALL* »«? 1 ; 
OEBLANKJ 

Si 55 Si + 1 i 
IF SC = " " THEN 

GO TO DE8LANK 
IF SC s 
TALLY 
ILSE 
BEGIfcl 

IF SC = ♦';•' THEN 

JUMP OUT TO GETREPEAT 
IF SC ' ♦"♦" THEN 

JUMP OUT TO GETREPEAT 
IF SC s "C" THEN 

JUMP OUT TO GETREPEAT 
IF SC - "C" THEN 

JUMP CUT TO GETREPEAT 

IF SC = •%" THEN 

JUMP OUT TO GETREPEAT 
IF SC s "9" THEN 

JUMP OUT TO GETREPEAT 
IP SC * "/*• THEN 

K Jb TALLY 
ELSE IF SC B " + ♦♦ THEN 

PLUS :s TALLY 



00754500 T 
00754600 T 
00754650 T 
00754700 T 

START OF SEGMENT 

00754750 T 0000 

00754800 T 0000 

00754850 T 0000 

00754900 T 0000 

00754950 T 0000 

00755000 T 0000 

00755050 T 0000 

00755100 T 0000 

00755150 T 0000 

00755200 T 0000 

00755250 T 0000 

00755300 T 0000 

O0755350 T 0000 

00755400 T OOOO 

00755450 T 0000 

00755500 T 0002 

00755550 T 0002 

00755600 T 0004 

00755650 T 0005 

00755700 T 0006 

00755750 T 0008 

00755800 T 0008 

00755850 T 0008 

00755900 T 0009 

00755950 T 0009 

00756000 T 0009 

00766050 T 0009 

O07561O0 T 0009 

00756150 T 0010 

00756200 T 0010 

08756250 T OOll 

00756300 T OOll 

00756350 T OOU 

00756400 T 0012 

00756450 T 0012 

00756500 T 0012 

00756550 T 0013 

09756600 T 0013 

00756650 T 0014 

09756700 T 0014 

00756750 T 0015 

09756800 T OOI5 

00756850 T 0016 

08756900 T 0016 

00756950 T 0017 

00757000 T 0017 

O0757O5O T 0018 

0Q757100 T 0018 

00757150 T 0018 

00757200 T 0019 



28 



i 

i 
i 
i 
i 
i 
i 



f 






• 

• 
m 
[m 
\m 
m 
m 



EU5E IF SC » "#" THEN 
CROSSHATCH }s TALLY 

ELSE IF SC a "-" THEN 
MINUS »= TALLY * 

GO TO DEBLAI\K ; 
END ; 

IF SC GEQ "0" THEN 
BEGIN 

K (^UMP OUT TO NALPHA3 

K l« SI J 

8 CIF SC LSS "0" THEN 
JUMP OUT f 

TALLY 1= TALLY + 1 * 

SI »n SI + 1) ; 

N I? TALLY ; 

IF TOGGLE THEN 



BEGIN 
IF SC = 
GO TO 



ALPHA THEN 
NUMALPHA ; 



BLANK! 



s " « THEN 



SI "► i ; 

BLANK f 



= 'V" THEN 



TO 



K ; 

NALPHA 



m 
m 
m 



K 

N 



OCT 



IF SC 
BEGIN 
SI I* 

GO TO 
END ; 
IF SC 
BEGIN 
NUMALPHAJ 

SI 

GO 
END 

END ; 

SI »« 

OS ss 
END 
ELSE 
BEGIN 
NALPHAJ 

OS »» 1 LIT ••* 

7 (IF 

OS 
ELSE 
END } 
Bi ?5 Dl - 8 i 

Skip 2 db ; 

OS J* plus SET 
Bj := DI - 1 ^ 

Skip 3 db } 

OS i' MINUS SET 
DI «=? DI • 1 > 
SKIP 4 08 ; 
OS ?« CROSSHATCH 



M j,« 



Sc * ALPHA 
!s 1 CHR 

D5 1= i LIT 



; 



THEN 
n «) ; 



; 



SET 



ei Js 01 

si 19 Si 

GETREPEAT8 

E CIF SC 

IF SC 



* 7 ) 

- 1) ; 

- »« ) « 
9 •'i" 



THEN 
THEN 



JUMP 
JUMP 



OUT 
OUT 



00757250 
00757300 
00757350 

00757400 
00757450 
0075750C 
00757550 
00757600 
00757650 

00757700 
00757750 
00757800 
OQ757850 
00757900 
00757950 
08758000 
00758050 
00758I0C 
00758150 
00758200 

00758250 
00758300 
00758350 
00758400 
00758450 
06758500 
00758550 
00758600 
00758650 
00758700 
09758750 
00758800 
00758850 
00758900 
00758950 
00759000 
00759050 
00759100 
00759i50 
00759200 
00759250 
00759300 
00759350 
09759400 
00759450 
00759500 
00759550 
00759600 
00759650 
00759700 
00759750 
00?59800 

00759850 
00759900 
00759910 
00759950 
06760000 



0019 
0020 
0020 
0021 
0021 
0022 
0022 
0022 
0022 
0024 
0025 
0025 
0026 
0026 
0027 
0027 
0027 
0027 
0028 
0026 
002 a 
0029 
0029 
0030 
0030 
0030 
0031 
0031 
0031 
0032 

0032 
0032 
0032 
0032 
0033 
0033 
0033 
0033 
0033 

0034 
0035 
0035 
0036 
0036 
0036 
0037 
0037 
0037 
0038 
0038 
0038 
0039 

0039 
0039 
0040 
0040 
0043 



i 



i 



• 



• 



IF SC * "P" THEN JUMP OUT } 
51 !?» SI * I) i 
E (DI J* LOC ijTAR i 

DS ?s 8 LIT "OCOOOCOl" ' 
DI := DI - 8 ; 

• IP CIF SC s «;•» THEN JUMP OUT ; 

IF 3C GEQ "O" THEN 
BEGIN 

TALLY IM 1 ; 
3 (SI J« 51 + 1 ; 
^ IF' SC LSS «0" THEN JUMP OUT i 

• TALLY J= TALLY + 1) ; 

K IS TALLY ; 

SI J» SI - K ; 
OS IS K OCT ; 

JUMP OUT i 
END i 

SI Is il ♦ 1) ^ 
JUMP OUT) i 
END STAR i 
:• DEFINE XSUB = CXDEx + 13 x 13# * 

IF N s THEN 
1^ GETPARAMETERS is STAR (IMAGED PARAMETERO* 0) 

• ELSE 



• 



• 



GETPIRAMETERS is star (IMaGE* XPARAMETERS C03# 63) ; 
END GETPARAMETERS ) 

INTEGER PROCEDURE VERB f 



^ BEGIN 

BOOLEAN PROCEDURE NUMBER (N* C) ; 

• ,,., „„ START OF SEGMENT ********** go 

INTEGER N ; nnv^t^na r nnnn ^ 

REAL c ; 
BEGIN 
• INTEGER XOEXX 



I 
i 

i 

i 
i 
i 
i 

uyroijuo T 0064 
00761350 T 0071 
28 IS 74 LONG> NEXT SEG 2 m 

i 



^ UA8EL ZERa ; 

• IF XDEX GEQ THEN 

BEGIN 

• WHILE BOOLEAN (C.C4:i3) AND XDEXX I* XOEXX - 1 GEQ 00 

C I' XaRRAY tUSEH* XDEXXxl3 + AB5 ( C&O t I » 44 ! 43»U MOO 53 ; 
^ INO } 

• CC^lU i« I 

IF NuMBIR IS (NOT BOOLEAN (C^CIjU)) & (C s -«#000000« j C46 |47 j U THEN 
^ BEGIN 

• IF C . t2S23 NEW AND FILECPEN THEN 

BEGIN 

^ G , Cl«33 »» C , C3;33 ; 

• IF C * THEN 

BIGIN 

^ c Is N ; 

• 60 TO Zero i 

END ; 

• IF NOT (ITSOLO (N) OR BOOLEAN (C . C1U3)) THEN 

C U C - 1 ^ 



00760050 




0044 


00760100 




0045 


00760200 




0046 


00760250 




0047 


00760300 




0048 


00760350 




0048 


00760400 




0050 


00760450 




0050 


0Q76O500 




OOSO 


00760550 




0051 


00760600 




0051 


00760650 




0052 


00760700 




0054 


00760750 




00S4 


OiF60800 




0054 


007608S0 




0055 


00760900 




0053 


00760950 




0055 


00761000 




0057 


00761050 




0058 


00761100 




0039 


00761150 




0059 


00761200 




0059 


00761250 




0063 


00761300 




0064 


00761350 




0071 


S 74 LONG* 


NEXT SeG 


00761400 




0051 


00763900 




0051 


00764000 




0051 


00764100 




OObl 


OF SEGMENT 


********** 


00764300 




0000 


00764400 




0000 


0076450Q 




0000 


00764510 




0000 


OF SEGMENT 


********** 


00764520 




0000 


00764530 




0000 


00764540 




0000 


00764550 




0001 


00764560 




0002 


00764570 




0006 


00764580 




0012 


00764600 




0012 


00764610 




0014 


00764620 




0017 


OQ764700 




0018 


00764800 




0020 


00764900 




0020 


00765100 




0023 


O07652OO 




0024 


O07653OO 




0024 


00765400 




0025 


O076550O 




0028 


00765600 




0028 


00765700 




0030 



START OF SEGMENT ********** 30 



# 



m 
m 
m 
m 
m 
m 
m 



FOR isj != 1 <- C ST£P I UNTIL Q DO 
IF AT Is; LU EAT 3 , T « 1 THEN 
BEGIN 

U i« i 

AT »= LAST , F ; 
END ; 
FOR N »= C + I STEP I UNTiL DO 
IF AT J= LL UT3 , F » THEN 
BEGIN 

N J= J 

AT Is FIRST , T ; 
END ; 

C «= LL CAT] , S ; 
END ELSE C,C2»2] I* I 
ZERCJ 

C Is MIN (FINITY* MAX Cl# N l?= O) ; 

END ELSE 

C.tl«33 s= ; 

END Number ; 



INTEGER STREAM PROCEDURE InLINEEOIT 
VALUE INITIAL* 

C* 

N* 

BIDR ; 
BESIN 
LABEL SEARCH* 

INSERT* 

DELETE* 

REPLACE* 

WRAPUP* 

LOOP* 

ERROR 1* 

HERE* 

THERE* 

JDR' 

XIT i 
BIOR 



30 IS 



* * 

cs. 



* * * 
0, T, 



* * * 
C, N, 



* * * 
BIDR, 



* * * 
INITIAL) ; 



DI 
DS 
DI 

Si 

DS 

OS 

2 

GO 
GO 
GO 
GO 
SO 
SEARCH! 
SI 
Sl 



le 

{ in 
|a 

IS 

I* 
l» 
(N 
TO 
TO 
TQ 
TO 
TO 

19 

i a 



(Si i» s * Si is 

Si I* d ; si Is 

Dl IS T * OS iw 

SI 1= c ; si Is 

LOC BIDR ; 

4 LIT " IDR" * 
* 



$1*6} 

Si + 6 ; 

6 LjT "0" 

si • 08 ; 



S »s Sx * 
D Is Si ; 

; T |a 01 ; 
C « a Si) ; 



T 
T 
8 
9 
(CI 



LIT " ' 

wds i 

IS Ci 



^ INITIAL ; 



SEARCH i 
IDR i 
IDR * 

IDR ; 

WRAPUP * 

LOC c ; 

Si ♦6 * 



0Q765800 


T 


0032 


00765900 


T 


0037 


00766000 


T 


0042 


00766100 


T 


0042 


0Q766200 


T 


0043 


00766300 


T 


0046 


00766400 


T 


0046 


00766500 


T 


0051 


00766600 


T 


0056 


00766700 


T 


0056 


00766800 


T 


0057 


00766900 


T 


0060 


00767000 


T 


0060 


00767100 


T 


0065 


00767200 


T 


0067 


0Q767300 


T 


0068 


09767310 


T 


0074 


00767320 


T 


0074 


00767400 


T 


0078 


81 LONG* 


NEXT SEQ 


00767500 




0000 


00767600 




0000 


00767700 




0000 


00767800 




0000 


00767900 




0000 


06768000 




0000 


0Q768100 




oooo 


00768200 




0000 


00768300 




0000 


00768400 




0000 


00768500 




0000 


00768600 




0000 


O07687OO 




0000 


00768710 




0000 


06768720 




0000 


00768730 




0000 


00768800 




0000 


00768900 




0000 


00769000 




0000 


00769100 




0001 


O07692OO 




0002 


00769300 




0004 


00769400 




0005 


0p769500 




0005 


00769600 




0006 


00769700 




0006 


00769800 




0006 


00769900 




0007 


00770400 




0008 


00770500 




0009 


00770600 




0010 


00770700 




0010 


00770800 




0010 


00770900 




0010 


OQ771000 




oou 


0077U00 




oou 


00771200 




OOll 



29 



i 
i 
i 
i 
i 
i 
i 
t 
m 



i 
• 



CNR 



m 

m 

m 



01 Xn LUC N 'f 
IF 2 SC 9 DC THEN 
GO TO ERROR! i 

Si JB c ; 
Si ;» si • 8 i 
c ?s SI ; 
Si «• D 

01 »» T 
OS t= I 
D »« SI 
T J= DI 

Si j« s ; 

DI Ss LOC BIDR ; 
ft (IF Sc s DC THEN 

JUMP OUT ; 
Si 5s SI - 1 ; 

TALLY »= TALLY + I) j 
IF TOGGLE THEN 
ELSE 
BEGIN 
ERR OR I? 

TALLY »= 1 ' 
JUMP OUT 2 TO HERE 
END ; 

INITIAL S* TAtLY i 
TALLY S" ; 

Sis SI ; 

GO TO LOOP 



; 



lORJ 



Si 
Si 
DI 
IF 



: 3 

2 

BEGIN 
SI j = 

DI J = 

TALLY 



LOC C i 
Si + 6 i 
LOC N ; 
SC s DC THEN 



D i 

T ; 

ts 4 



INITIAL I* TALLY } 



WRAPUP! 



TO 



OS 
GO 

END ; 

Si Js c ; 

51 19 Sl 

c «s SI ; 
si «a s ; 

ts 

TO 
TO 
TO 
TQ 



1 CHR ; 

LOOP } 



CI 
GO 
GO 
GO 
@0 
INSERT* 

DI l» T 
gs »" 1 
S l» SI 
T »=« DI 



CI + INITIAL 
WRAPUP i 
INSERT ; 
DELETE > 
REPLACE i 



i 

CHR 

; 



DI »- INLINEEQIT ; 



0077i30C 




OQU 


0077H0C 




oou 


00771500 




00 u 


00771900 




0012 


0077200C 




00 J2 


00772100 




ooii 


00772200 




OOU 


00772300 




0013 


0Q772400 




0013 


00772500 




0014 


00772600 




0014 


00772700 




0014 


00772800 




0014 


00772900 




0015 


06773000 




0015 


00773100 




0016 


00773200 




0016 


00773300 




0017 


00773400 




0017 


00773500 




0017 


00773510 




0017 


00773600 




0017 


00773700 




0018 


00773800 




0019 


00773900 




0019 


00774000 




0019 


0077410Q 




0019 


00774200 




0019 


00774300 




0020 


00774400 




0020 


00774500 




0020 


00774600 




0020 


00774700 




0020 


00774800 




0021 


00774900 




0021 


06775000 




0022 


00775100 




0022 


00775200 




0022 


00775300 




0022 


00775400 




0022 


00775500 




0023 


00775600 




0023 


00775700 




0023 


08775800 




0023 


00775900 




0024 


0Q776000 




0024 


00776100 




0024 


00776200 




0025 


00776300 




0025 


00776400 




0025 


00776500 




0025 


00776600 




0026 


O07767OO 




0026 


00776800 




0026 


00776900 




0026 


06777000 




0026 


00777100 




0027 



i 

i 
i 



m 



m 
m 
m 









m 



DI «' DI + 8 / 
INIINEEOIT J«? DI I 

GO TO LOOP ; 

DELETE* 

DI 5= D ; 

DI :» 01 ♦ I i 

D S? 01 ; 

Si «s! Si 1- I ^ 

S »s SI ii 

GO TO LOOP ; 
REPLACES 

Dl ts T i 

DS »* 1 CHR i 
S 15 SI I 

T S= DI i 

Si 5= D ; 

Si j= Si + 1 i 

:= SI ; 
LOOPS 

)) ; 

aO TO THERE f 
HERE* 

GO TO XIT ; 
THERE! 

TALLY i' Q i 

S JB SI ; 

SI Js LOC INLJNEEOIT I 

DI J* LOC BIDH ; 

SI S* SI + 6 ^ 

01 Js DI + 7 i 
OS Ss 1 CHR i 
St I is S i 

ilDR (2 (32 (IF Se NEQ ^ " THEN 

BEGIN 

TALLY IS 2 I 

^lUMP OLT 3 TO XIT ; 

END i 

§1 !5 SI * 1))) ; 

INLINEEDIT (IP SC NgQ « « THEN 

BEGIN 

TALLY «=? 2 ' 

JUMP OUT I TO XIT J 

ErsO ; 

Si «= SI + 1) ; 



XITl 



INLINEEDIT i- TALLY J 



END INLINE ; 

LABEL NEXT, 

VERBEXIT ; 
DEFINE QUICK = FALSE* f 
NiXTJ 

READIN i 

IF BOOLEAN (ABNORMALEND) OR USER » MAXUSERS THEN 

BESIN 

VERB I' R3W0M + REAL (USER » MAXUSERSJ ; 
GO TO VERBEXIT I 



0Q777200 
00777300 
00777400 
00777500 
0077760C 
00777700 
00777800 
00777900 
00778000 

00778100 
00778200 

00778300 

067/8400 
00778500 
00778600 
00778700 
0077880Q 
00778900 
06779000 
00779100 
00779110 
00779120 
00779130 
00779140 
00779200 
09779300 
0Q779400 
00779500 
067/9600 
00779700 
00779800 

OQ779900 
01780000 

06780100 
00780200 
00780300 
00780400 
00780500 
00780600 
00780700 
00780800 
00780900 

og?6iooo 

09781100 
00781200 
00781300 
00781400 
00781500 

00786000 
00786100 
00786110 
00806500 
0Q807O00 
00807500 
00808000 
00809900 
00809500 



T 
T 
T 
T 
T 
T 
T 
T 
T 

T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0027 
0027 
0027 
0026 
0028 
0026 
0028 
0028 
0029 

0029 
0029 
0029 

0030 
0030 
0030 
0031 
0031 
0031 

0031 
0031 
0033 
0033 
0033 
0034 
0034 
0035 
0035 
0035 
0036 
0036 
0036 

0036 
0037 

0039 

0039 
0039 
0040 
0040 
0041 
0043 
0043 
0044 
0044 
0044 
0045 
0045 

0045 
0046 

0046 
0046 
0046 
0046 

0047 
0047 
0049 
0030 
0092 



i 
i 
i 
i 






%*^' 

• 

• 



m 

m 



m 
m 
m 



ZIPPY* CHK§* 
» THE,N 



EKD i 

IF INLINETOG THEN 

BEGIN 

INLINETOG Is PAUSE ; 
IF M != IMINEEOIT ClMAGE* RECORD' 
HALFLENliTH* FaElNFO m COBGl* NJ 
BEGIN 

IF INIINEECHO EQV TEMPTOG THEN 

WRITEWE (N. ZIPPY) ; 
IF WQIStX illPPi) THEN J 
NQSTAR {= PAUSE ; 
GD TO NEXT f 

END ; 

IF M s 2 THEN 

ERROR (NEXT* 0* PARAMETERO* " OVRFLW") # 
ERROR (NEXT* 0* "NEEDS I"* «#R OR D" ) ; 

END ; 

IF NOSTAR then 
BEGIN 

IF WDISCX (IMAGE) THEN ' 

GO TO NEXT ; 

END ; 

WRITE (10 user;)* 30* IMAGE C*3) '* 

I :* GETPARAMETERS (0) i 

TEMPTOG J- PARAMETER0,C2S23 = * 

IF NUMBER (N* PARAMETERO) THEN 

BEGIN 

IF FILECUOSED THEN 

ERROR ((NEXT* 5* •' CPENJ "* QCTDEX (PARAMETEKO)) * 

IF NOT MOHEINPUT AND ITSOUD (N J « PARAMETERO) THEN 
WRITEAT ; 

GO TO NEXT ; 

END ; 

M Js RESETN »» N * 
FOR I «s STEP I UNTIl RSVyCM DO 
IF PARAMETERO » RSWD tU THEN 
BEGIN 

;k PaRameTERI * 

(M* PARAMETERI) ^ 

PARAMETERS) * 

PARAMETERS) * 

PARAMETER^*) * 



reuativenumber 






J5 



number 

NUMBER 
NUMBER 
NUMBER 

' I f 
VERBEXIT 



CM* 
CM* 
(M* 



NUMl 
NUM2 
NUM3 
NUM4 

VERB 
GO TO 
END } 
IF I := XFIlE (PARAMETERO* MACROLIBRARY* 
AND MaCHOUIbRaRY NEQ "MaCRO " THEN 
I != XFILE (PARAMETERO* "MACRO "* "U 
IF I LSS 2 OR INPUT ([33 N^Q 10 THEN 
BEGIN 

Show (Parametero* " invaui") i 



-1) LSS 2 



ERROR 
END / 

verbexitj 
END ; 

% -k * -k it * * ■ 



(NEXT* Q* "D«* 



•* RWTEACH) i 



29 IS 



* * 



* * * 



00810000 T 
00811000 T 
098U500 T 
00811600 T 
00813000 T 
00813500 T 
00814000 T 
098H100 T 
00814200 T 
00814500 T 
00815000 T 
00815200 T 
00815500 T 
06816000 T 
00816100 T 
06816500 T 
00817500 T 
0081800C T 
00818500 T 
00822500 T 
00826000 T 
00826500 T 
06827000 T 
00828000 T 
00828100 T 
00837000 T 
00837100 T 
0Q837500 T 
00838000 T 
00838500 T 
00838600 T 
0©839000 T 
00839500 T 
00839700 T 
00840000 T 
00840500 T 
0084060C T 
00840605 T 
00840610 T 
00840620 T 
00840630 T 
00840640 T 
00840700 T 
00841000 T 
00841010 T 
OOB^llOO T 
00841200 T 
00841220 T 
00841300 T 
00841320 T 
00841360 T 
00841400 J 
09841500 T 
0Q844900 T 
09845000 T 
145 LONG* 
00846000 T 



0052 

oosi 

0053 
0033 
0055 
0039 

0065 
0065 
0067 
0070 

0072 
0074 
0074 
0074 
0075 
0079 
0083 
0083 
0083 
0084 
0086 
0066 
0086 
0091 
0092 
0095 
0096 
0097 
0097 
0102 
0105 
0108 

oioe 

0108 

ouo 
oiu 

0112 
0U2 
0113 
0116 
0118 
0121 
0123 
0124 
0125 
0127 
0129 
0130 
0133 
0135 
0135 
0137 
0142 
0142 
0142 
NEXT SEG 
0051 



i 

i 
i 
i 



m 
m 



• 

• 



• 



• 



• 



DEFINE QUICKLIST 9 UlSTlT CU#* 

SCAN s UISTlT <2)## 

CHANSE » UIS.TIT <4)#^ 

EDIT = LISTIT (8)# ; 
PROCEDURE LISTIT (LISTTYPE) ; VAUUE 

BEGIN 
LABEL NEXT i 



LI5TTYPE i INTEGEH LISTTYPE ; 



DEFINE QUICK * BOOLEAN ClISTTYPE) AND T«UE#* 

ScaNtOG = LISTTYPE - 2»f 

CHANGETOG = LISTTYPE «* a«, 

ECITTOg =? LISTTYPE ? 8#» 

POSTING s LISTTYPE 6EQ 16# ; 
BOOLEAN PROCEDURE STRINGFOUNO i 
BEGIN 
BOOLEAN STREAM PROCEDURE PRESENT <S* R 



1, 3R* T* ID* K) 



VALUE 
SR* 

ID* 

K* 

T ; 

LABEL 



I» 



;a s j 

J= SI + 

?» SI ; 



i. 



BEGIN 
XIT ; 
SI 
SI 

s 

SI 
DI i- 

Si ;s 
01 •• = 

DS i^ 

01 Is 
K COI 

01 » = 
R «s 01 ' 
TALLY »s 1 
SI ? = 

ts 

is 

Is 

is; 



K 



; 



LOC SR 
LOC K ; 
SI + 6 ; 
DI + 7 ; 

CHR ; 

R f 

«« 01 + 

DI ♦ SR 



32 

; 



/ DI J- DI * 32) ; 



DI 
SI 
01 
DS 
01 ! = 
K (2 
SI »« 



LOC T ; 
LOC K } 

SI + 6 ; 
DI + 7 ; 
i CHR ; 

R ; 

(32 ( 

s ; 



DC THEN 
OUT 4 TO XIT) i 



IF I SC 

BEGIN 

ID CJUMP 

R := DI ; 

SI :a R ; 

IF SC s ALPHA THEN ELSE 

BEGIN 

SI Ja SI - I ; 

SI ja 31 • 1 ; 

IF SC = ALPHA THEN ELSE 
JUMP OUT 3 TO XIT ; 
END J 



oeesoooo r 0051 

oeesojoo t oo§i 

00850200 T OOSl 

06850300 T 005l 

00850400 T 0051 

00850500 T Q051 

00850600 T 0051 

START OF SEGMENT *******i 

06850700 T 0000 

00850800 T 0000 

0085090C T 0000 

00851000 T 0000 

OpSbUOO T 0000 

0085X110 T 0000 

0985U20 T 0000 

00851200 T 0000 

START OF SEGMENT *******' 

0©85U00 T 0000 

00851400 T 0000 

00851500 T 0000 

09851600 T 0000 

00851700 T 0000 

00851800 T 0000 

00651900 T 0000 

00852000 T 0000 

00852100 T 0000 

00852200 T 0000 

00852300 T OOOl 

0085240C T 0001 

06852500 T OOOl 

06852600 T OOOl 

09852700 T 0002 

00852800 T 0002 

00852900 T 0002 

00853000 T 0004 

00853100 T 0004 

00853200 T 0005 

00853300 T 0005 

00853400 T 0005 

00853500 T 0005 

06853600 T 0006 

00853700 T 0006 

00853800 T 0006 

00853900 T 0006 

00854000 T 0008 

00854100 T 0008 

00854200 T 0009 

00854300 T 0009 

0685440U T 0012 

00854500 T 0012 

0Q854600 T 0012 

00854700 T 0013 

00854800 T 0013 

09854900 T 0014 

00855000 T 0014 

00855100 T 0014 

00855200 T 0016 



31 



i 
i 
i 
i 

i 



32 






f 



• 






m 



END ; 

01 Is DI • I ^ 

01 «« 01 * U)) ; 

T ( 

IF I SC = DC THEN 
BEGIN 

ID (JUMP OUT 2 TO XIT) ; 

R is DI J 

SI IS R ; 

IF SC * ALPHA THEN EISE 
BEGIN 

Si »« SI - I ; 
31 I* Si • 1 ; 
IF SC s ALPHA THEN EUSE 
JUMP OUT TO XIT i 
END ; 
END f 

DI J= 01 - I i 
01 I' Dl 4 1) ^ 
TAIUY J« ; 



XITJ 



PRESENT 1= TALLY ; 
END PRESENT ; 
IF PRESENT (STRING* ZlPpY# STRING!* STRINGIUEPT* ST HINGIREPEAT» 
I-STRINGID* 0? EfiV TEMFTOG THEN 
STRINGFOUND is? TRUE 
ELSE IF STRINGJ NEQ THEN 
STRINGFOUND 5» 

PRESENT (STRING, ZIPPY* STRlNGj, STRINGJLEFT, STRI NG JREPEAT , 
1-ijTRINGjD* STRING!) EQV TEMPTCG ; 
END STRINGFOUND * 

DEFINE GETSTRInGS - IF ISqL ATEST RI nGS (LISTTYPt) THEN GO TO NEXT# ; 
BOOLEAN PROCEDURE ISOLATESTRINGS (LISTTYPE) * 

VALUE LISTTYPE ; 

INTEGER LISTTYPE ) 

BEGIN 

STREAM PROCEDURE ISOLATE CS, 0* 1,1* L2) I 

BEGIN 
LOCAL STQPCHR* 
OX* 

QUOTES ; 
LABEL OK* 
NCSTRIN?, 
STRING* 
JUMPQUT* 
NC* 
NEXTnO * 

TALLY ?s 63 i 
STOPCHR ?« TALLY # 

01 Is LOC QUOTES * 
DS «« 2 HT """ ; 

OS »» 6 LIT ♦'.,()[]•• ; 

2 (SI «« S ; 

63 (SI »» SI ♦ I i 



00855300 
00855400 
00855500 
00855600 
00855700 
00855800 
00855900 
00856000 
00856100 
00856200 
00856300 
00856400 
00856500 
00856600 
00856700 
00856800 
0085690C 
00857000 

00857100 
00857200 
O08573OO 
00857400 
06857500 
00857600 
00857610 
00857620 
00857630 
00857640 

00857650 
00857660 
00857670 
0©857680 



32 IS 47 LONG* 



0016 
0016 
0016 
0017 
0018 
0018 
0019 
0019 
0022 

0022 

0022 

0023 

0023 
0023 
0024 
0024 

0025 
0023 

0025 
0023 

0026 
0026 
0026 
0027 
0028 
0032 
0034 
0035 
0037 
0038 
0041 
0044 
NEXT SES 
0000 
0000 
0000 
0000 
0000 
0000 



i 

« 
i 
i 
i 
i 
i 
i 
i 
i 



31 



********** 



06857700 T 

00857800 T 

00857900 T 

00858000 T 

09858100 T 

00858200 T 
START OF SEGMENT 

00858300 T 0000 

00858400 T 0000 

00858500 T 0000 

06858600 T 0000 

00858700 T 0000 

00858800 T 0000 

00858900 T 0000 

00858910 T 0000 

06859000 T 0000 

00859100 T 0000 

00859200 T OOGO 

00859300 T 0000 

00859400 T 0000 

008595OO T 0000 

00859600 T 0001 

00859700 T 0002 

00859800 T 0002 



33 



• 



• 



so 



OKI 



IF SC = 
ELSE IF 
BEGIN 

DI 1 = 

4 CiF 
SI 

01 
IF 5C 

ENP) 'f 
TO NOSTRiNG 



ALPHA THEN 

SC NEQ " " THEN 



LUC QUOTES ; 
SC K OC THEN 

!* SI - 1 ; 



>JUMP QUT 2 TO OK ; 






01 



+ I) 
THEN 



JUMP 



OUT 



1 ; 

," THEN 



OX S= 01 f 
Sl }s SI - 
IF SC ^ 
BEGIN 

DI J- LI t 

OS :« LiT "+" ; 

END ; 

sj s« sj + 1 ; 

TALLY »s U ; 
STOPCHR CUI is OX ; 

IF SC » DC THEN 
JUMP OUT I TO 

SI ?s SI - 1 ; 

UI J« D i 

DS J= 1 CHR / 

?•» 01 ; 

TALLY :* TALLY 



STRING ; 



+ 1) 



NOSTRINGI 



STRINGI 



GEQ "0" THEN 



01 5= LI } 

QS J= 8 LIT "OOQOOOIO" 

GO TO JUMHouT ; 



DI sa LI > 

DI Js DI + 2 
2 <DX ?« DI ; 
10 (IF SC 
BEGIN 
01 !B 
OS Js 
OS ! = 
IF SC 
BEGIN 
Si l» 
DI J 3 
OS Ja 

END ; 

JUMP OUT 

END ; 

IF SC - 

ELSE IF 

BEGIN 
IF SC 
DI 5 = 
4 (IF 



Dx ; 

LIT "0" 

CHR ; 

GEQ "0" 



THEN 



Sl • I ; 

DI - 2 ; 

2 CHH ; 
1 TO NEXTNQ ; 



ALPHA THEN 

SC NEQ " " THEN 



« . »» 



THEN 

Loc auOTEs ; 

SC = DC THEN 
BEGIN 

SI «a SI - I ; 



JUMP OUT 2 TO NO ; 



00859900 
00860000 
0Q860100 
00860200 
0086030Q 
00860400 
00860500 
06860600 
00860700 
00860800 
00861200 
00861300 
00861400 
00861500 
00861600 

00861700 
00861800 
00861900 
00862000 
00862100 
00862200 
00862300 
00862400 
00862500 
00862600 
00862700 
00862800 
06862900 
00863000 
00863010 
00863020 
00863030 
00863100 
00863200 
00863300 
00863400 
00863500 
0^863600 
00863700 
00863800 
00863900 
00864000 
00864100 
00864200 
00864300 
00864400 

00864500 
00864600 

00864700 
00864800 
00864900 
00865000 
00865100 
00865200 
00865300 
00865400 
00865500 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0003 
0003 
OO04 
0004 
0005 
0006 
00Q7 
0007 
0008 
0009 
0009 
0009 
0010 
OOlO 

oou 
oou 
oou 

0012 
0012 

0012 

0012 
0014 
0014 
0015 
0015 
0015 

0015 
0016 
0016 
0016 
0017 
0018 
0016 
0018 
0019 
0019 
0020 
0020 
0020 
0021 
0022 
0022 
0022 
0022 
0023 
0023 
0024 
0024 

0024 
0024 
0025 
0025 
0025 
0027 
0027 
0028 
0028 



i 

i 



• 
• 



JUMP OUT 3 TO NO i 
_ END ; 

• SI ;» SI • 1 ; 

DI is Dl + I) f 

END ; 

• SI »s SI + I) ; 



vJUMP GUT TO NO ; 



^ NEXTN0J 

• ) ; 



JUMPCUT* 
N0« 



GO TO NO i 
JUMP GUT ; 



Si {» SI - 1 ; 

• S 1= SI i 

DI 5* LI } 

tl S= TALLY ; 

• TALLY »s 5T0PCHR ; 

LI (TALLY »5 TALLY + 63) ; 
STOPCHR i' TALLY ^ 

i# SI »s Loc LI ; 

DI »s DI + 7 ; 

■ SI ;s SI + 7 ; 

• OS »= 1 CHR ; 



01 i^ L2 i 
LI !* DI) i 
END ISOLATE I 
LABEL NEXT ; 

INTEGER PROCEDURE OEFINESTRING CI» LEFT* RIGHT) ; 
VALUE LEFT, RIGHT } INTEGER W LEFT* RIGHT ; 
BEGIN 

IF LEFT Ja 10xI,[i2J63 t I.C18J6] s 99 THEN 
BEGIN 

LEFT J* 1 ; 
RIGHT «= 60 ; 
END ELSE 
IF RIGHT J= 10xI.C24l63 + I.130|6] s 99 THEN 

RIGHT 5* LEFT ; 
I «« FULLLENGTH ♦ I • STRINGI ; 

LEFT t= MjN (MAX (LEFT^f" COBOLFlLE ThEN 6 ELSE U» D ' 
RIGHT ts MUs (MAX ( LEFT , RIGHT ) , I) ; 
DEFINESTHING :» LEFT - X i 
I J* RIGHT - LEFT + 1 i 
END OEFINESTRING ; 

IF NOT SCANTOG THEN 
BEGIN 

If PaRaMETERI = "LCHO " THEN 
BEGIN 

IF CHANgETOG THEN 

CHANGEECHU »s TOGGLE CCHAnGEECHQ, 2) 
ELlE 

EDITECHO »• TQG6LE CEOHECHO' 2) i 
60 TO NEXT > 

END ; 
READONLYCHECK i 

END i 

IF EDITT06 THEN 



00865600 




0029 


OQ665700 




0030 


00665800 




0030 


00865900 




0030 


03866000 




0031 


00866100 




0031 


00866200 




0031 


00866300 




0033 


09866400 




0032 


00866410 




0032 


00866420 




0032 


00866430 




0032 


00866500 




0033 


0Q866600 




0033 


00866700 




0034 


00866800 




0034 


00866900 




0034 


00867000 




0035 


09867100 




0035 


00867200 




0037 


0i867300 




0037 


00867400 




0037 


00867500 




0038 


00867600 




0038 


00867700 




0038 


00867800 




0038 


00867900 




0040 


00868000 




0040 


00868010 




0040 


00868020 




0040 


00868030 




0040 


06868060 




0040 


00868070 




0044 


00868080 




0044 


00868090 




0045 


00868100 




0046 


00868110 




0046 


00868120 




0050 


O086813O 




0051 


00868140 




0055 


00868150 




0062 


00868160 




0067 


00868170 




0068 


00868190 




0070 


00868200 




0073 


00868300 




0074 


00868400 




0075 


00868500 




0076 


00868600 




0076 


09868700 




0077 


0«868800 




0079 


O08689OO 




0080 


00869000 




0086 


00869100 




0086 


06869200 




0086 


0Q869300 




0088 


09869400 




0088 






m 

t 
t 

m 






• 






m 



m 
# 



BEGIN 

IF NOT (NU 

ERROR CN 

IF NOT ITS 

ERROR (N 

RDISC CAT* 

IF CQBQLFI 

RECORD C 

END EUSE 

BESIN 

I := M >= 
ISOLATE CI 
IF I NEQ 6 

Begin 
relative 

IF SCANT 
IF NOT 
FILE 
STRINGI 
STRINGID 
STRINGIL 
STRINGIR 
IF M NEQ 
BEGIN 

STRING 
STRING 
STRING 
STRING 

END ELSE 
STRING 
FILEINFO 
END ; 

IF STRINGI 
ERROR (N 
IF STRINGJ 
STRINGS 
END ; 

IF FALSE THE 
NEXTI 

isolatestr 

END ISOLATESTRI 



Ml AND NUM2 AND NUM3) THCN 

ext# o» parametero* ^ error.") ; 

old cn s" parameters) then 

EXT^ 0* "MISSING"* « FORMAT") * 

RECORD) ; 

LE THEN 

03.(;iJ353 tm •♦g(?gee>e'' ; 



& "9999" C12»2<4J243 ; 
MAGE* STRING* I* M) * 
4 THEN 

NUMBER I" FILEINFO * 
OG THEN 

CEMPTYl OR (NUMl AND CNUM2 OH EMPTY2))) THEN 
INFO »s DATA ; 
J= ItC-miZ] } 

J- REAL (I LSS 0) ; 
EFT !s OEFINESTRING CI* o* 0) * 
EPEAT »5 I ; 

64 THEN 

si Ss M,t4U7] i 

JD 5* REAL CM LSS Q) ; 

Jltn IS OEFINESTRING (M* 0* 0) ; 

JREPEAT J5 M ; 

J js 64 ; 

J= RELATIVENUMBER ; 

^ OR CCHANGETOG AND STRING^ » 64) THgN 
ExT* 0* "MISSING"* « STRING") ; 
» 64 THEN 

s= ; 



N 



INGS i« TRUE ; 

NGS * 



PBOCEDyRE EXTERNAL?' ILE ClISTTYPE) i 
VALUE LISTTYPE * INTEqER LiSTTYPE * 

BEGIN 
FILE RO DISK SERIAL C2' INPUT C33* INPUT 



33 IS 



00869500 T 
00869600 T 
00869700 T 
00869800 T 
00869900 T 
00870000 T 

00870100 T 
00870200 T 
00870300 T 
00870400 T 
00870500 T 
00870600 T 
0087070U T 
00870800 T 
00870900 T 
00871000 T 
00871100 T 
00871200 T 
00871300 T 
00871400 T 
00871500 T 
00871600 T 
00871700 T 
00871800 T 
00871900 T 
00872000 T 
00872100 T 
00872200 T 
00872300 T 
00872400 T 
00872500 T 
00874100 T 
00874200 T 
0087^300 T 
00874400 T 
0087450G T 
00874600 T 
00874700 T 
00874800 T 
00874900 T 
00875000 T 
159 LONG* 



£43) 



LABEL M 
EOF* 
NEXT 

BOOLEAN 

B i 



ORE* 

; 

POSTED/ 



LOCKED i' TRUE i 
RESETN i' N i 
FILL RO WITH INPUT 



N 



12 + 
i9 



HEAL 



[13* INPUT C23* ** ** ** 



CPOSTED «» PARAMETERl s "MAIL * ") ' 



00875100 T 

00875200 T 

00875300 T 

00875400 T 

START OF SEGMENT ** 

00875600 T 

00875700 T 

00875800 T 

0C875900 T 

06876000 T 

00876100 T 

00876300 T 

00876400 T 

00876500 T 

00876600 T 



0088 
0069 
0092 

0096 
0098 
0iQ3 
0105 
0105 
0108 
0106 
OUO 
0U2 
0U3 

0U5 
0116 

on? 

one 

0122 
0124 
0125 
0127 
0129 
0131 
0131 
0132 
0134 
0135 
0138 
0139 
0139 
0142 

0143 
0143 
0146 
0151 
0152 
0153 
0153 
0154 
0155 
0155 
NEXT Seg 
0000 
0000 
0000 
0000 

0004 
0004 
0004 
0004 

0004 

0004 

0005 
0006 
0009 

0012 



€ 

i 
i 

i 

i 
i 
i 



31 



34 



c 

• 
• 



MORE* 



m 



EOF 



NEXTt 



M »? INPUT [53 + 1 ; 
B J* POiiTING ; 
IF NUM3 THEN 
BEGIN 

IF N ?a PARAMETERS - 1 GEQ M THEN 

ERROR CNEXT# 0* "USE REC"* ♦'GRp #S.") ; 

READ SEEK (RQ [N]) } 

IF NUM4 THEN 

M !s PARAMETERS ; 
END 
EtSE IF NOT EMPTY3 THEN 

B i' TRUE ; 
I 5* IF POSTING THEN AlGQl. ELSE DATA ; 
WRITE (.llPP'f [*3* STAR) ; 

INTERRUPT CI) } 

IF N t* N ♦ 1 GTR M THEN 

60 TO EOF ; 
READ CRU' 10* ZIPPY C*3) CEQFJ f 
IF SCANTOG THEN 

IF NOT STRINGFOUND THEN 
GO TO MORE ; 
IF B THEN 
BEGIN 

IF POSTING AND FXRSTCHAR (ZIPPY [03) = "*" THEN 
GO TO MORE ; 

WRITEUFCR f 
END ELSE WRITESEQ ; 
WRItEROV^ CZIPPY* quick* I) i 
IF POSTED THEN 

WRITE CRO» STAR) # 
IF BREAK! s THEN 
BEGIN 

GO TO MORE ; 

IF POSTED THEN 
BEGIN 

DETACH } 

CLOSE (RO* PURGE) i 

REATTACH ; 
END ; 
END ; 



N ;a RE5ETN ; 
LOCKED »* FALSE ; 
END EXTERNALFILE ; 

PROCEDURE SPECIAL (LISTTYPE* ECHO) ; 
VALUE LiSTTYPE* ECHO ; INTEGER LISTTYPE ; 

BEGIN 
UABEU 



REWRITE* 
OVERFLOW* 
NEXT ; 

define quick a false* / 
Integer stream procedure 



34 



BOOLEAN ECHO 



START 



CHANGED (S#D*I*g*STRlNG*SS*T*Tl*SR#M*NMD) ; 



0087670U 




0012 


06876800 




0014 


00876900 




0015 


O0877OQO 




0016 


00877100 




0016 


06877110 




0018 


00877120 




0024 


OQ877200 




0029 


06877300 




0030 


00877400 




0031 


00877500 




0031 


00877600 




0033 


00877700 




0034 


00877750 




0037 


00877800 




0041 


00877900 




0041 


00878000 




0046 


00878100 




0048 


00878200 




0049 


00878300 




0054 


00878400 




0055 


00878500 




0056 


00879100 




0056 


00879200 




0056 


00879300 




0057 


00879400 




0060 


05879500 




0061 


00879600 




0061 


00879700 




0063 


00879800 




0065 


00879900 




0065 


00880000 




0069 


00880100 




0070 


00880200 




0071 


00860300 




0071 


00880400 




0072 


00880500 




0072 


0Q880600 




0072 


00880700 




0073 


00880800 




0075 


00880900 




0076 


00880910 




0076 


00881000 




0076 


00881100 




0077 


00881200 




0077 


00881300 




0079 


S 84 LONG 


f 


NEXT SEG 


00881400 




0000 


00881500 




0000 


00881600 




0000 


0(5881700 




0000 


OF SEGMENT 


********** 


00881800 




0000 


00881830 




0000 


0Q881900 




0000 


00882100 




0000 


00882200 




0000 



i 
i 
i 

i 
i 
i 
i 
i 
i 
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# 



;• 
• 






VALUE 

SS* 

T* 

Tl* 

SR/ 

IC^ 

N ; 

LOCAU 
TCTA 

lABEU 
XIT* 
NO/ 
UNDE 
HERE 
THER 
EXIT 



I* 



BEGIN 

L i 
aROUNO' 



RFUOW/ 
t 

E' 

* 

01 ?» 
OS S" 

Si Is 

OS J = 

SI 5 = 

01 : = 

SI !* 

01 «'» 
OS Ja 

SI :s 

01 J = 

K CDS 
OS S- 

S t3 S 

D «= 

K 5- T 

2 (T ( 



NOJ 



; 

8 U 

D ; 

9 W 
LOC 
LOC 
SI 
01 
CHR 

s ; 

D > 

i ^ 
• •*• 

SS 

I i 
I i 
ALL 
K ( 



IT " 

OS ; 
SS ; 

K } 
+ 6 i 

+ 7 ; 



J2 CHR 
CHR ; 



« I 



; OS «« 32 CHR) ; 



01 
SI 

IF 

BEG 



Y ; 

OS Is N CHR J 

TALLY ;» K ; 

JUMP OUT TO HERE) ; 

IS s ; 

I* STRING i 

I SC NEQ DC THEN 



SI 1= s ; 

01 i» ; 

OS is CHR 

s Js SI ; 
D Is 01 ; 

SI I* SH 
SI \^ 
3R |s 

TALLY 

GU TO 
END ; 

ID CSS 1= 01 
SI i» SS 

IF SC » 



SI • 

SI ; 
'« \ 

HERE 



J 

« 
t 

ALPHA 



THEN 



00862300 




0000 


06882400 




0000 


00882500 




0000 


00882600 




0000 


00882700 




0000 


00882800 




0000 


00882900 




0000 


00883000 




0000 


0Q883100 




0000 


00883200 




0000 


00883300 




0000 


00883400 




0000 


00863500 




0000 


00883600 




0000 


00883700 




0000 


00883800 




0000 


00883900 




0000 


00883910 




0000 


00883920 




0000 


09884000 




0000 


00884100 




0000 


00884200 




oooi 


00884300 




0001 


00864400 




0002 


00884500 




0002 


09884600 




0002 


00884700 




0002 


00884800 




0003 


00884900 




0003 


00885000 




0003 


00885100 




0003 


00885200 




0005 


00885300 




0006 


00885400 




0006 


00885500 




0006 


00885600 




0006 


00885700 




0009 


O0866OOO 




0010 


OQ886100 




oou 


00686200 




0011 


00886300 




0011 


00886400 




0012 


00886500 




0012 


00886600 




0012 


00886700 




0013 


00886800 




0013 


00886900 




0013 


00887000 




0014 


00887100 




0014 


00887200 




0014 


00887300 




0014 


00887310 




0015 


00887400 




0015 


00887500 




0015 


06887600 




0015 


00887700 




0016 


00887800 




0017 



€ 
i 
i 

i 

i 



• 



• 



• 



JUMP OUT TO NQ ; 

SI ;= SI • I ; 
• ' 51 »= si • 1 ; 

IF SC * AUPHA THEN 
JUMP OUT TO NQ ; 

# SI JP STRINa I 

SI I' SI ♦ u f 

TALLY IS 1 } 

# CHANGED »s TALLY > 

S J= 01 / 

Di != D ; 

# GO TO THERE ; 

HERE! 

^ GO TO AROUND ; 

# THERE* 

N CQI Js Dl + J i 
:^ Q := Dl i 

# 01 := TOTAL / 

SC0I!5DI+Ji 

. DI ;s Di * n ; 

# TOTAL t= DI * 

ui }= SR ; 
. 8 (01 !« 01 • J) ; 

» iJR 5= 01 i 

UI 5* D ; 

01 !- 01 - J ; 

# OS is CHR } 

TALLY != J ; 
JUMP OUT TO AROUND) J 
OS i- J CHR ; 

D := 01 ; 

Si is sr ; 
# 8 (SI 1= SI - n ; 



# AROUND 



SR 1= SI , 
TALLY I* I ; 

TALLY t^ TALLY + 63 I 
K IS TALLY) ; 
TALLY ?- Tl ; 
T I* TALLY) ; 
CI «- CI + CHANGED f 
GO TO EXI I ; 
M (K CDS 5= N CHR t 
TALLY 1= K ; 
TALLY 1^ TALLY + 63 ; 
K I* TALLY ; 
JUMP OUT)) ; 
TALLY Is iJ ; 
K (CHANGED |5 TALLY ; 

JUMP OUT TO EXIT) ; 
SI Is LOC SR ; 

01 Is LOC ss ; 

6 (IF SC NEQ "0" THEN JUMP OUT TQ UNDERFLOW i SJ Is SI ♦ 1) > 
Dl la DI * 7 ; 

OS I? CHR ; 

Si i* s ; 

01 s« / 



00887900 




0017 


00888000 




0018 


00888100 




0018 


00886200 




0018 


00888300 




0019 


00888400 




0019 


00888500 




OQ20 


00888600 




0020 


00888700 




0021 


00888800 




0021 


00888900 




0021 


00888910 




0021 


06888920 




0022 


00888930 




0022 


00888940 




0022 


00889000 




0022 


00889100 




0024 


00889200 




0024 


00689300 




0025 


00689400 




0025 


00869500 




0026 


00889600 




0026 


00889700 




0027 


O08698OO 




0028 


00889900 




0028 


00890000 




0026 


00890100 




0029 


00690200 




0029 


00890300 




0030 


00690400 




0030 


00890500 




0031 


00890600 




0031 


00890700 




0031 


00890800 




0032 


00890900 




0033 


06891000 




0033 


00891100 




0033 


00891200 




0034 


00891600 




0035 


00891700 




0035 


00891800 




0036 


00891900 




0036 


00892000 




0037 


00892100 




0039 


0Q892200 




0040 


00892300 




0040 


00892400 




0040 


0Q892500 




0042 


00892600 




00^2 


00892700 




0043 


OQ892800 




0044 


0Q892900 




0044 


00893000 




0045 


00893100 




0046 


00893200 




0047 


00893300 




0047 


00693400 




0047 



i 

i 












• 



SS COS 8' 32 QHR ; DS »» 32 CHR) ; 

OS Sa SR CHR i 

S !* SI ^ 

GO TO UNDERFLOW ; 

EXIT' 

GO TO XIT ; 
underflow: 

1!^ (SI Js uQC TOTAL i 

01 «* Loc K ; 

SI j= SI + 6 ; 

UI «- 01 + 7 ; 
DS Js i CHR ; 

SI !s s ; 

K (2 (32 (IF SC NEfc •♦ " THEN 
BEGIN 

CHANGED i' TALLY i 
JUMP OUT n TO XIT ; 

END ; 

SI t* SI + 1))) } 
TOTAL (IF SC NEQ ♦* " THEN 
BEGIN 

CHANGED ?= TALLY ; 
JUMP CUT 2 TO XIT ; 
END ; 
Si la SI + 1)3 ; 

XITI 

END CHANGED i 
BOOLEAN STREAM PROCEDURE EDITS (F* S> 0» N) / 
VALUE N ; 

BEGIN 

LABEL XIT J 

01 '« i 

DS »5 8 LIT " » I 

Si ;= D ; 

OS !s 9 WOS j 

01 Js / 

:=; TALLY } 

2 (N (Si :«? F ; 
IF SC ' "e" THEN 
BEGIN 

SI »= SI + 1 ; 

F !' SI ; 
si 1= s ; 

OS t» CHR ; 

s J;: SI ; 

END 

ELSE IF SC = "#" THEN 

BEGIN 

Si ;« Si ♦ I ; 

F Is SI ; 

Si 1= s ; 

SI »= Si + 1 ; 

s «= SI ; 

END 

ELSE 

BEGIN 

DS J» CHR I 



€ 
1 



0Q893500 




0047 


00893600 




0049 


00893700 




0050 


00893710 




0050 


06893720 




0050 


06893730 




0030 


00893800 




0051 


00693900 




003i 


06894000 




0093 


0089^100 




005 3 


00894^00 




0053 


00894300 




0054 


00894400 




0054 


00894500 




0054 


00894600 




0036 


00894700 




0056 


00894800 




0037 


00894900 




0058 


0089500C 




0058 


00895100 




0059 


00895200 




0061 


00895300 




0061 


00895400 




0061 


00895500 




0062 


00895600 




0062 


00895700 




0063 


00895800 




0063 


00895900 




0065 


00896000 




0065 


00896100 




0065 


00896200 




0065 


00896300 




0065 


00896400 




0065 


00896500 




0066 


00896600 




0066 


00896700 




0067 


00896800 




0067 


00896900 




0067 


00897000 




OQ69 


00897100 




0069 


00897200 




0069 


00897300 




0070 


06897400 




0070 


00897500 




0070 


00897600 




0071 


00897700 




0071 


00897800 




0071 


00897900 




0072 


00898000 




0072 


00898100 




0072 


00898200 




0073 


00898300 




0073 


00898400 




0073 


00898500 




0073 


06898600 




0073 


00898700 




0074 


00898800 




0074 



• 
• 



m 
m 



F «» SI 

51 ?B 
SI je SI 
D iss SI 



+ 8 



• 
• 



END)) 
SI Ja 
DI Ja 

SI 
DI 
DS 

SI 

N 



f — 

« an 

!* 
2 



LOC 

toe 

SI + 
DI + 
i CH 

s ; 

C 32 



m 

m 

m 
m 



XITt 



REAL L ; 



(IF 
BEG 

T 
E 

END 
SI 



SC N 
IN 

AILY 
DITS 

UMP 

« 

!c S 



D ; 
N ; 

6 ; 

7 ; 

R i 

CIF S 
BEGI 

TA 

ED 

JU 

END 

SI { 

EQ " " 

t9 I 

t9 TA 

OUT ; 
1 + 1) 



C NEQ " " THEN 
N 

LiY »= 1 ; 

ITS Is TAILY i 
MP OUT 3 TO XIT ; 

i 

s SI ♦ J))) ; 

THEN 

; 

iLY ; 



END EDITS ; 



IF 

BEG 
P 
P 
P 
P 

END 
WHI 

BEG 
RD 
IF 
BE 



CHAtNGETOG THEN 
IN 

ARAI^ETERI » « 
ARAMETER2 (s 
ARANETER3 Js 
ARAMETER4 Js 



STHINGIREPEAT OIV 2 1 
STRIN6IREPEAT » PARAMETERl 
FULUUENGTH • STRINGILEFT ; 

MIN CPARAMETER3* 63) i 



EN 
EL 
BE 



LE N i« CL »" LL [ATn.S LEQ M DO 

IN 
ISC 

SCA 
GIN 
IF S 
BEGi 

WR 

N 

GU 
END 
D 

SE I 
GIN 
IF 1 



CAT^ I 
^NTOG T 

iTRINGF 

,N 

ITEf^E 
Ss N + 
TO NE 

« 

t 



IPPY) } 

HEN 

OUND THEN 
CN^ ZIPPY) ; 

1 ; 

XT i 



[F CHANGETOG THEN 
Js CH 



REWRlTEJ 



BEGIN 

HESETN I 

IF ECHO 



ANGEO CZIPPY* IMAGE* STRINGI* STRiNGJ* 
STRING* STRINGiLEFTi PARAMETERl* PARAMETERS* 
PARAMETERS* PARAMETERS* STRINei t.SS STRINGS* 
STRINGID) « 1 THEN 

* N ; 

THEN 



00898900 
06899000 
00899100 
00899200 
00899300 
00899400 
00899500 
00899600 
O08997OC 
00899800 
00899900 
00900000 
00900100 
00900200 
00900300 
OQ9C0400 
0Q900500 
00900600 
00900700 

00900800 
00900900 
00901000 
00901100 
00901200 
00901300 
00901400 
00901500 
00901600 
00901700 
00901710 
00901720 
00901730 
00901740 
00901750 
00901760 
00901900 
09902000 
00902100 
00902200 
00902300 
00902400 
00902700 
00902900 
00902910 
00903000 
00903100 
009C370C 
00903800 
00903900 
00904000 
00904100 
00904200 
00904300 
00904500 
00904600 
00904700 
00904800 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 



0074 
0074 
0074 
0075 
0075 
0075 
0076 
0076 
0076 
0076 
0077 
0077 

0079 
0079 
0080 
0080 
0081 
0081 
0082 
0083 
0083 
0084 
0084 
0085 
0085 

0086 
0086 

0087 

0087 
0087 
0088 
0089 
0091 
0094 
0097 
0097 
0103 
0103 
0106 
0106 
0107 
0107 
0108 
OHO 
0U2 
0112 
0112 
0112 
0113 
0U4 
Oil? 
0119 
0121 
0122 
0123 
0124 
0124 



i 
i 
i 
i 



i 
i 
t 

m 



• 
• 



OVERFLOW* 



NEXTS 






• 



# 



writeme; <n> jmaqe) } 
woisc ; 

END EISE 

IF I * 2 THEN 

EHRQR CNEXT> 0* PARAMeTERO* •♦ OVRFUW") J 

END 

USE 

BEGIN 

IF EDITS CRECORDf ZIPPY, IMAGE, HALFFULuUENGTH ) THEN 

GQ TO OVERFLO>v ; 
GO TO REWRITE ; 

END ; 

INTERKUPT CI) ; 

AT I* i,,T ; 

END r 

IF SCANTQG THEN 

ERRORX CQ# "EOF NO "# "STRING,") ; 

IF CHANQETOG THEN 
N M RESETN ; 
END SPECIAL 'f 

BOOLEAN COMPLEX ; 
REAL L i 

IF COMPLEX »= SCANTCG OR CHaNGEtOG QH EDITTOG THEN 

GETSTRINGS ; 
IF NUMI AND CNUM2 OR EMPTY2 OR CHANGETOG) THEN 
BEGIN 

N :s PARAMETERl ; 
IF NUM2 THEN 

M J? PARAMETER2 
ELSE IF SCANT06 THEN 

M ;a FINITY 
ELSE M J= N ; 
END 

ELSE IF NOT (EMPTYl OR CHANGETQG) THEN 
BEGIN 

IF XFILE U2* 0# 2) LSS 2 THEN 

60 TO NEXT ; 
IF LOCKED OR NOT POSTING THEN 
WAIT ((IF NLM3 AND NUMa THEN 

MIN (PARAMETER4, INPUT tSj) ELSE INPUT C5j) - 
CjF NUM3 THEN PARAMETERS ELSE 0), LOCKED)'; 

externalfile (LISTTYPE) i 

GO TO NEXT ; 

END 

ELSE 

BEGIN 

IF NOT COMPLEX THEN 
BEGIN 

AT «■ Jl 
N J* 1 i 
END ; 
IF CHANGETOG THEN 

M S- N 
ELSE 
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00904900 T 
00905000 T 
0Q905100 T 
00905200 T 
00905250 T 
00905300 T 
009C5400 T 
08905500 T 
00905600 T 
00905700 T 
00905800 T 
00905900 T 
0Q906000 T 
00906100 T 
00906U0 T 
00906200 T 
00906300 T 
00906400 T 
00906500 T 
00906600 T 
09906700 T 
00906800 T 
158 LONG* 



009C6900 

00906910 

06907000 

00907100 

00907200 

00907300 

009C7400 

00907500 

00907600 

00907700 

00907800 

00907900 

00908000 

00908100 

00908200 

00908300 

00908400 

00908500 

00908600 

00908700 

00908800 

06908900 

00909000 
00909100 
00909200 
00909300 
00909400 
00909500 
00909600 
00909700 
00909800 
00909900 
00910000 
00910100 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0124 
0127 
0129 

0129 
0130 

oui 

0134 
0134 
0134 
0134 
0139 
0140 
0140 
0140 
0146 
0147 
0148 
0148 
0150 
0151 
0151 
0153 
NEXT SE6 
0000 
0000 
0000 
0003 

0005 
0009 
0009 
0010 

0011 
0011 

0013 
0014 
0017 
0017 

0020 

0020 

0022 

0023 

0024 

0024 

0024 

0036 

0037 

0038 

0038 

0038 

0036 

0039 

0039 

0040 

0041 

0041 

0041 

0042 



I 
I 
I 
i 
i 

i 

i 

i 
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• 






• 



m 

# 



NEXTl 



M IS FIMTY ; 

END ; 

OPENCHECK ; 

IF COMPLEX THEN 

WAIT CKOUM (N# M, CLCCKJ* FAUSE) ; 
IF ITSQUD CN) THEN i 
IF COMPLEX THEN 

SPECIAL (LlSTTYpE, TEmPTOG EQV (IF CHanGETQG THEN CHANGEECHQ 

ELSE EOlTEChO)) 
ELSE 
BEGIN 

WHILE N ?5 (L »* LL CAT])»S LEQ M QO 
BEGIN 

WRITEAT ; 
INTERRUPT (U i 
AT J= L,T i 
END ; 
N »» LL CL.FJ.S + INC i 

END ; 

END LISTIT ; 



0091020Q 
00910300 
0©910400 
00910500 
06910600 
00910700 
00910900 
00911000 
00911050 
00911100 
00911200 
00911300 
00911310 
00911400 
00911410 
00911420 
O09115OO 
00911600 
00911700 
00911800 
00911900 



31 IS 87 LONG* 



# 



PROCEDURE EXECUTE i 

BEGIN 

LABEL NEXT ; 

INTEGER XSUB ; 
REAL 'CSTAHT* 

YLAST* 

YFILETYPE» 

YREPEAT* 

ynchrs ; 

BOOLEAN VERBISEXECUTE I 

IF VERBISEXECUTE »s PARAMETEHO * RSWD CO] THEN 
IF PARAMETER! = "LIBRARY" THEN 
BEGIN 

IF EMPTY2 THEN 

ERROR (nEXT# 7p "MACR0=/-* MACRQUIBRARY ) } 
IF NUM2 THE(N 

MaCROLIBRaRY 5* OCTOEC (PARAMETERS) 

ELSE 

MACROLIBRARY J^ PARAMETERS ; 

60 TO NEXT i 
END ELSE 

IF PARAMETER! * "ECHO " THEN 
BEGIN 

EXECUTEECHO !« TOGGLE C EXECUTEECHO* 2) ; 

GO TO NEXT i 

END ; 

IF XDEX ♦ 1 GEO XMAX THEN 

ERROR (NEXT* 0* PaRaMeTERO* " OVRFLW") / 
XSUB »" (XDEX ♦ 1) X 13 ; 
YFILETYPE «• DATA ; 
IF NOT VERBISEXECUTE THEN 
BEGIN 

XpARAMETERS [0] «« PARAMETERl ; 



0043 
0044 
0044 
0045 
0046 
0050 
0052 
0052 
0055 
0057 
0057 
0060 
0065 
0065 
0069 
0074 
0076 
0076 
0081 
0081 
0082 
NEXT SEQ 
0051 
0051 
0051 
0051 



• 

m 
• 



• 



********** 



00912000 T 

00950000 T 

00950100 T 

00950200 T 
START OF SEGMENT 

00950300 T 0000 

00950400 T 0000 

0Q950500 T 0000 

00950600 T QOOO 

00950700 T 0000 

00950800 T 0000 

00950900 T 0000 

00951000 T 0000 

00951100 T 0001 

00951200 T 0002 

0Q951300 T 000$ 

09951400 T 0004 

00951500 T 0009 

00951600 T 0009 

00951700 T 0010 

0Q951800 T 0012 

06951900 T 0013 

00952000 T 0013 

00952100 T 0013 

00952200 T 0015 

OQ952300 T 0015 

09952400 T 0018 

00952500 T 0020 

0f952600 T 0Q20 

09952700 T 0021 

00952800 T 0025 

0Q952900 T 0026 

00953000 T 0027 

00953100 T 0028 

00953200 T 0028 
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• 

^# 
:• 

• 



• 

m 



tn 


; = 


PARAMETeR2 


; 


C83 


JS 


PARAMETER3 


i 


C33 


t9 


PARAMETfc.R4 


; 


C43 


|S. 


""#000000" 


• 



i 



XPARAMETERS 
XPARAMETERS 
XPARAMETERS 
XPARAMETERS 
YREPEAT != 1 > 

Parameters «* input [33 * 

RARAME^ERl J=i PARAMETERO ; 

fLAST »= INPUT C53 •► I ; 
END ELSE 
IF riLEQPEN AND CNUMl qR EMPTYU ANO CNUMg CR EMPTY2) THEN 

BEGIN 

If NUMl THEN 
BEGIN 

PARAMETERS Js PARAMETER! i 
IF NUM2 THEN 

PARAMETER'^ »= PARAMETERS 

ELSE 

PARAMETERS 1= PARAMETERS 

END ELSE 

BEGIN 

PARAMETER! i» I f 

PARAMETER* S * FINITY ; 
END ; 

PARAMETtRl »" OcTDECCXDEX + l + lOxSTATlON.Eia?43 + 100CxSTATlON,i;9«^])> 
PARAMETERS «= "#MACRO#" ; 

If YFILeTYPe 5» XFILE CPARAMeTeRI# parameters* -U * 7 THEN 
BEGIN 

READ (LIBRARY) i 

DETACH ; 

CLOSE (LIBRARY* PURGE) f 

REATTACH i 
END E13E 

If yfiietype geq o then 

ERRCR CnExT* ** PARAMETERl* PARAMETERS) i 
YlAST t- KOUNT (PARAMETERS* PARAMeTeR4» "D f 

I != savefactdr ; 

FREEFlLE (STATION) ; 
ThERMQFAX (SAVEFACTDR 
UnFREEFILE (STATION) 

Savefactdr »= i ; 

YFILETYPE l« FiLEINFQ 
END ELSE 
BEGIN 

IF XPILe (12* 0* 2) LSS 2 THEN 

GO TO NEXT J 
¥LAST I* INPUT [53 * I ^ 
IF NUM3 THEN 
BEGIN 

IF YSTART Ja PARAMETERS 

ERROR (NEXT* Of "USE 
IF NUM4 THEN 

IF PARAMETER* LSS YLAST THEN 
YLAST ;- PARAMETER* * 
END ; 
END } 
IF XDEX LSS THEN 

XECHi I' TEMPTOG EQV EXECUTEECHO 



Js C* CYlaST ••■ H) DIV 15 



15) 



; 



1 

REC"j 



6TR YlAST then 
"ORD #S,") ; 



009^3300 
0Q953400 
00953500 

00953600 
00953700 
00953800 
00953900 
00934000 
06954100 
00954200 
00954300 
00954400 
00954500 
00954600 
06954700 
09954800 
00954900 
00955000 
00955100 
00955200 
00955300 
00955400 
O09555OO 
00955600 
09955700 
00955800 
06955900 
00956000 
06956100 
00956200 
06956300 
00956400 
O99565OG 
00956600 
00956700 
00956710 
00956800 
00956900 
00957000 
00957010 
00957100 
00957200 
00957300 
00957400 
00957500 
00957600 

00957700 
00957800 
00957900 
00958000 
00958100 
00958200 
06958300 
00958400 
00958500 
00958600 
00958700 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 

T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 



0031 

0033 
0036 

0038 
0041 
0042 
0043 
0043 
0045 
0045 
0051 
0052 
0053 
0053 
0054 
0055 
0055 
0056 
0057 
0057 
0058 
0058 
0099 
0059 
0064 
0065 
0068 
0068 
0072 
0073 
007$ 
0076 
0076 
0079 
0082 
0084 
0084 
0085 
0093 
0094 
0095 
0096 
0096 
0096 
0098 
0099 
0100 
0101 
OlOl 

0103 

0108 

oioe 
Olio 
oiii 
oiu 
0111 

0112 



1 
i 
i 

i 



• 



IMAGfc C*3) i 



m 
m 



m 

m 



IF VERBISEXECUTE THEN 

IF YREPEAT «* SETPARAMETERS C63) s THEN 
GO TO NEXT f 
WAIT ((YLAST " YSTART) x YRIPEAT x 3, FALSE) ; 
IF MOREINPUT THEN 
BEGIN 

READ CIO [USER + WAXUSERS3# 30# IMAGE C*]) ; 

WRITE (10 £2xMAXUS|RS*XMAXXU§E;R4,XpEX*U' 30» 

YNCHRS »« NCHHS & UIM7U3 ; 

MOREINPUT J* FALSE / 

END ; 

XDEX {s XDEX ♦ 1 i 

XN }= XSTART 5* YSTART i 

XLAST »B YLAST ; 

XFILETYPE 1= YFILETYPE i 

XREPEAf S= YREPEAT ^ 

XNChRS != YNCHRS ; 

XPREFIx «' PARAMETERI / 

XSUFFIX »s PARAMETERS ; 
NEXTl 
END EXECUTE I 

%*iir*iltili***it)lr*)lF***************«k*ill* 

PROCEDURE XVERbS CK ) ; VALUE K ; INTEGER K ; 

BEGIN 
DEFINE 
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START 



THEN 
PARAMETERS* 



RSWDM 



15 BAD") ; 



00 
PARAMETERI 



THEN 



REPLACE s 
BEGIN 

IF NUM2 UR EMPTY2 
ERROR (NEXT* 0# 
M :s: •! ; 

FOR I »s C STEP I UNTIL 
IF PARAmETERo I? RSWD 

M 1= I 
ELSE IF PARAMETERO s PARAMETERS THEN 

ERROR (NEXT* 0* «OUP "j» PARAMETERS) ; 
IF M LSS THEN 

ERROR (NEXT* 0* "NO VERB", PARAMETER!) ; 
RSWD CM] tw PARAMETERS ; 
END#* 
DELETE s 
BEGIN 

DPENCHECK ; 

IF NOT NUMl THEN 

PARAMETERI «» N * 
InORBER S« READONLYFILE i 
IF NOT NUM2 OH PARAMETERS LSS PARAMETERI THEN 

PARAMETERS ?« PARAMETERI ; 
I «« LL CLQC (PARAMETERI)] , F i 
IF ITSOLD (PARAMETERS) THIN 

AT ja LL tAT3 , T ; 
LL tn . T I* AT ; 
MODIFY (I) ; 
UL CAT] , F IS! I i 
MODICY (AT) ; 
53 «* LL Ci3 , S + iNC ; 



00958800 




0U5 


00958900 




0U6 


009S9000 




0118 


00959100 




0U8 


00959S00 




0123 


00939300 




0J23 


00959400 




0124 


00959410 




0130 


00959500 




0137 


00959600 




0140 


00959700 




0H2 


00959800 




0142 


00959900 




0143 


09960000 




0148 


00960100 




OlSO 


00960300 




0153 


00960300 




0155 


00960400 




0158 


00960500 




QUO 


00960600 




0163 


00960700 




0164 


S 168 LONG* 


NEXT SEG 


00970000 




0051 


00970100 




0051 


00970200 




0051 


00970300 




0051 


OF 5EQMENT 


********** 


00970400 




0000 


00970500 




0000 


00970600 




0000 


00970700 




0000 


00970800 




0000 


00970900 




0000 


00971000 




0000 


0Q97U00 




0000 


00971300 




0000 


00971300 




0000 


00971400 




0000 


00971500 




0000 


00971600 




0000 


00971700 




0000 


00971800 




0000 


00971900 




0000 


0097S000 




0000 


00973100 




0000 


0097S200 




0000 


00972300 




0000 


00972400 




0000 


00972500 




0000 


06972600 




0000 


00972700 




0000 


00972800 




0000 


0097S900 




0000 


00973000 




0000 


06973100 




0000 


00973200 




0000 


00973300 




0000 



€ 

i 
i 

i 
i 
i 
i 
« 
i 
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PRINTORPUNCH s 
BEGIN 

OPENgHECK ; 

IF NOT NUW3 THEN 

PARAMETERS «* 1 ; 
IF NQT NUM4 THEN 

PARAMETERS »« FINIlY i 
THERMQFAX (K^ 0) ; 
thOtt i 
tABEL NEXT ; 

IF BOOLEAN (K) THEN 
IF K s 1 THEN 

REPLACE 
ELSE 
DELETE 
ELSE IF K a THEN 

CLOSEMYFILE 
ELSE 

PRINTORPUNCH f 
NEXT? 
END XVERBS ; 

DEFINE CLDSEFIlE = XVERBS (0)#, 

Replace * xveRbs cix* 

PRINT 5 XVERBS (<)## 
DELlTE » XVERBS U)#* 
PINCH =; XVERBS {4)# ', 

PROCEDURE MAIL i 

BEGIN 
LABEL NEXT ; 

BOOLEAN STREAM PROCEDURE P05TFR0M (SENqER* M£SSaGE# 2? f 

BEGIN 
LABEL OK* 
EXIT ; 

SI «s z ; 

01 »= I } 

OS t* 8 LIT " « / 
DS js 8 rtDS i 
SI t' MESSAGE ; 
20 (IF SC = "»" THEN 
JUMP OUT TO OK ; 

Si j« Si + 1) ; 

TALLY J» 1 i 

POSTFRQM »= TALLY ; 
GO TO EXIT i 



3 7 



START 



OKJ 



f» • ft 



Sl J* SI + 1 

01 I" z ; 

63 (IF SC 

JUMP CUT i 

DS »= 1 CHR) ; 

OS J« 1 LIT ♦'"•♦ 

SI »= SENDER ; 

SI ;= SI + 1 ; 



THEN 



00973400 




0000 


00973500 




0000 


Oi973600 




OOOQ 


00973700 




0000 


00973800 




0000 


00973900 




0000 


00974000 




0000 


00974100 




0000 


00974200 




0000 


06974300 




0000 


00974400 




0000 


00974500 




0000 


00974600 




0000 


00974700 




0001 


00974600 




0025 


00974900 




0025 


06975000 




0067 


00975100 




0068 


00975200 




0062 


00975300 




006$ 


0Q975400 




0095 


0Q975500 




0095 


S 97 LONG* 


NEXT SEG 


00975600 


T 


0051 


00975700 


T 


0051 


0^975800 


T 


0051 


06975900 


T 


0051 


00976000 


T 


0051 


01023000 


T 


0051 


01023500 


T 


0051 


0J02400Q 


T 


0051 


01024100 


T 


0051 


OF SEGMENT 


*****#***# 


01024500 


T 


0000 


01025000 


T 


0000 


01025500 


T 


0000 


01026000 


T 


0000 


01026500 


T 


0000 


01027000 


T 


0000 


OI027SO0 


T 


0000 


01028000 


T 


OOOl 


01028500 


T 


0002 


01029000 


T 


0002 


01029500 


T 


0003 


01030000 


T 


0003 


01030500 


T 


0004 


01031000 


T 


0004 


01031500 


T 


0004 


01032000 


T 


0004 


01032500 


T 


0004 


01033000 


T 


0005 


01033500 


T 


0005 


01034000 


T 


0006 


01034500 


T 


0006 


01035000 


T 


0008 


01035500 


T 


0008 


01036000 


T 


0006 



c 

i 

i 
i 
f 
i 
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DS »= 7 CHR i 

exit; 

end postfrom ; 
if num2 then 
parameters 5* octdec (parameters) ; 

I J* XFILE {"MAR % "# IF EMPTYl THEN USeRcODE EI^SE PARAMtTERi' 

-u ; 

IF EMPTYl THEN 
BEGIN 

IF 1 LSS 7 THEN 

ERROR (NEXT* 0* ♦•SORRY* "# «N0 MAIL") t 
PARAMETtRl '« "MAIU X » i 
NUMl i9 FAISE ; 
PARAMETERS >» USERCODE f 
NUM2 := FAUSE ; 
NUM3 «* FALSE ; 

LISTIT (17) f% POSTING AND QUICK 
END 
ELSE 
BEGIN 

IF PARAMETERl NEQ "TO " THEN 

ERROR (NEXT* C» "MISSING"* " TO, ") * 
IF POSTFROM (USERCODE* IMAGE* RECORD) THEN 

ERROR (NEXT* 0* "MISSINQ"* " COLON*") ; 
IF I LSS THEN 
BEGIN 

FREEFILE (STATION) I 
PARAMeTeRI S" "MAIL % " * 
CREATEFILE (15) ; 
UNFREEFiLt (STATION) * 
END 

ELSE IF I GTR 2 THEN 
8E®IN 

WRITE (LIBRARY [INPUT 15} + U* 10* RECORD C * j ) i 
CLOSE (LibRARY) ; 
END ELSE 

ERRORX (I* "MAIL % "* PaRaMETeR2) } 
END i 
NeXT» 

END POSTMAN ; 

PROCEDURE COPY ; 

BEGIN 
BOOLEAN B* 

MERGE ; 
LABEL NEXT ; 

IF PARAMETER! = "CVERITE" THEN 
BEGIN 

COPYCLOBBER If TOGGLE (COPYCLOBBER* 2) ; 
GO TO NEXT f 

END ; 

REAOONLYCHECK ; 

IF XFIUE (12' 0* 2) LSS 2 THEN 

GO TO NEXT f 
IF INPUT [33 NEQ 10 OR INPUT iH} MOo 30 NeQ THEN 



01036500 T 0009 

01037000 T 0009 

01037500 T 0009 

01038000 T 0011 

01038500 T OQlt 

01039000 T OOU 

01039500 T 0016 

01040500 T 0018 

01041000 T 0018 

01041500 T 0019 

01042000 T 0020 

01042500 T 0026 

01043500 T 0026 

01044000 T 0028 

01045000 T 0029 

01045500 T 0031 

01046000 T 0032 

01047000 T 0033 

01047500 T 0033 

01048000 T 0033 

0104850Q T 003S 

01049000 T 0035 

01049500 T 0041 

01050000 T 0043 

01050500 T 0048 

01051000 T 0048 

01051500 T 00^9 

0}052000 T 0050 

01053000 T 0051 

01Q53500 T 0070 

01054000 T 0071 

01054500 T 0071 

01055000 T 0077 

01055500 T 0078 

01056000 T 0084 

01056500 T 0085 

01056600 T 0085 

01057500 T 0087 

01058000 T 0087 

01058500 T 0088 

38 IS 90 LONG* NEXT 5EG 

01059000 T 0051 

01059500 T 0051 

01060000 T 0051 

01060100 T 0051 
START QF SEGMENT ********** 

01060200 T 0000 

01060500 T 0000 

01060550 T 0000 

01060600 T 0000 

01060700 T OOOl 

01060850 T 0004 

0^060900 T 0006 

01060950 T 0006 

01061500 T 0007 

01062000 T 0009 

01063500 T 0009 



€ 
i 
i 

i 
« 
i 
i 
i 
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ERROS (NEXT^ 3, PARAMETER^ PARAMETERS) ; 
IF NUM3 THEN 
BEGIN 

I ;s PARAMETERS - X i 

IF I GTR INPUT t5] THEN 

ERROR (NEXT, 0* "USE REC* "ORD tS,") ; 

IF NUM^ THEN 

M != MIN (PARAMETERS • 1* INPUT t^l) 

ELSE M J= I ; 
END 

BEGIN 

I t= q i 

M 15 INPUT t53 ; 

IF OATAFILE AND MERGE J? PARAMETERS = "MERGE " THEN 
ERROR (NEXT* bf " TYPE* "* PARAMETERS) ; 

END ; 

Wait cm - i* false) } 

READ SEEK (LIBRARY CI]) ; 

B IS NQT (COPYCLOBBeR eQV TeMPTOg) i 

FOR I J* I STEP 1 UNTIL M 00 

Begin 
read (library* 10* image c*j) ; 
if merge then 

N 5= IF COBOLFILE THEN DEC (IMAGE [03* 6) 

ELSE DEC (IMAGE C93* 8) ; 
IF ITSOLO CN) AND B THEN 

ERROR (NEXT* 0* "OVERITE"* « I§ OFF") ; 
WDISC * 

INTERUPT (1* 1* I + 1) ; 
END ; 
NEXTI 

CLOSE (LIBRARY) I 
END i 

PROCEDURE ZIPIT f 

BEGIN 
ALPHA STREAM PROCEDURE ENDCHECK (b) ; 

BEGIN 

SI !s s ; 

IF SC • "7" THEN 
BEGIN 

01 J" LOc ENOCHECi^ * 

01 J» DI + 3 * 

OS Ss CHR ; 

63 (IF SC NEQ " " THEN JUMP OUT ; 

sj s» Si + 1) ; 

4 CIF SC =* ALPHA THEN OS I;. I CHR ELSE JUMP OUT) * 
EN© ; 
END ENDCHECK * 
LABEL NEXT ; 

REAOONLYCHECK i 

RDISC (FIRST , T* RECORD) r 

IF ENDCHECK (HECORD) « THEN 

ERROa (NEXT* 0* "INV FIR"* "ST CARD") * 



01064000 
01064500 
0t069000 
01065500 
01066000 
01066500 
01067000 
01067500 
01070000 
01070500 
01071000 
01071500 
01072000 
OIO72S00 
01072600 
01072700 
01073000 
0*073500 
01075000 
01075100 
01075500 
01076000 
01076100 
0J076200 
010 76300 

01076400 
01076500 
01076600 

01077000 
01078000 
01078500 
01079500 
01079600 
01080000 



39 IS 81 LONG* 



0012 
0014 
0015 
0016 
0017 

0018 
0023 
0023 
0025 
0029 
0029 
0029 
0029 
0030 
0031 
0033 
0038 
0038 
0041 
0046 
0049 
0050 
0050 
0054 
0054 

0055 
0059 
0061 

0066 
0068 
0074 
0076 
0077 

0078 
NEXT SEG 
0051 
0051 
0051 
0051 



i 
i 

i 
i 

i 
i 

i 



********** 



01086500 T 
01087000 T 
0*087500 T 
01087550 T 
START OF SEGMENT 

01087600 T OOOQ 

01087650 T 0000 

01087700 T 0000 

01087710 T 0000 

01087750 T 0000 

01087800 T OOQl 

01087810 T 0001 

01087850 T 0002 

01087900 T 0003 

01087950 T 0004 

01087960 T 0006 

01088000 T 0006 

01088050 T 0007 

01088100 T 0007 

01089500 T 0008 

01090000 T 0012 

01090500 T 0014 
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RDISC (LAST 
IF ENDCHECK 



. F^ IMAGE) 

(IMAGE? NEQ 



••?ENOG" THEN 



• 



• 



• 
• 



") ; 

XLQCKED) 



ERgOR (NEXT* 0* "NO END "^ "CARD* 
WAIT CKOUNT (l» FINITYf CuOCK) x 2, 
FILL LIBRARY WITH PREFIX* SUFFIX ; 
SEAO SEEK (LIBRARY CM Is (AT ?« FIRST. T) ' 23) J 

WHiLi AT J" LL UT3 , T NEQ I DO 
BEGIN 

RDISC (AT* IMAGE) ; 

I «s I ♦ I ^ 

IF ENDCHECK (IMAGE) NEG THEN 

BEGIN 

RECORD C93 » « I ; 

WRITE (LIBRARY* 10* RECORD C*3) * 



- 2 THEN 
CM]) ; 

RECORD C*n 



IF M + 1 NEQ M ja AT 

READ SELK (LIBRARY 

READ (IMAGE C*3* 10# 

ENQ ; 

INTERUPT (1' 2* M) ; 
END ; 

IMAGE C93 »s I ; 

WRITE (LIBRARY* 10* IMAGE C*3) i 
CLOSE (LIBRARY) ; 
IF NOT EMPTY! THEN 
BEGIN 

PARAMETERS 13 1 ; 

PARAMETER4 ;s FINITY ; 

THERMOFAX (8* (D + 14) 
END 
ELSE 
BEGIN 

FILEINFO J« DATA ; 

CLQSEFILE ' 
ZIP WITH DISC ; 
END i 



OIV 15 X 15) J 



NEXT! 
END 



GLOSE 



(LIBRARY) I 



DEFINE CLGSEIT = 
8E®IN 

QPENCHECK * 

CLQSEFILE i 
END# ; 

PROCEDURE OPEN * 

BEGIN 
LABEL NEXT ; 

IF FILEQPEN THEN CLQSEFILE * 

TABAMOUNT « b } 

PRIWHERE IS - 1 J 

IF FILEINFO l» FILETYPE (PARAMETERS) « THEN 



40 IS 



START 



ERROR (NEXT* 5* " TYPEI 
I l» XFILE (12* 0* -1) } 



* PARAMETERS) ; 



0109200Q 
01093100 
01093200 
01095500 
01096000 
01096500 
01096600 
01097000 
01097500 
01098000 
01098100 
01098500 
01099000 
OllOOOOO 
01100500 
01100510 
01100600 
01101600 
QU'CSOOO 
01102500 
01103000 
01104000 
01104500 
01104600 
01105000 
01105500 
01106100 
01106200 
0IIC7S00 
01108500 
01109000 
01109500 
01109600 

oiuoooo 

OllllOOO 
01111500 
01111600 

011H7Q0 

01112000 

108 LONG* 
01113000 T 
01U3500 
01113600 
01113800 
01J14000 
01116500 
01117000 
01117500 
01118000 
01118500 
OF SiGMENT 
01119000 
01119500 
01421000 
OU22000 
01126000 
01126100 



T 
T 
T 
T 
T 
T 
T 
T 
T 
** 

T 
T 
T 
T 
T 
T 



0019 
0022 
0024 
0030 

0034 
0038 
0047 
0047 
0053 
0053 
0055 
0056 

0058 
0059 
0060 
0064 
0067 
0073 
0075 
007S 
0080 
0083 
0084 
0088 
0090 
0091 
0091 
0092 
0093 
0100 
0100 
0100 
0103 
0103 
0104 
0105 
0105 
0106 
0107 

NEXT SEG 
0051 
0051 
0051 
0051 

0051 
0031 
0051 
0051 
0051 
0051 

0000 
0002 
0002 
0003 

0005 
0009 



t 

i 
t 

m 

• 
• 
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# 



m 

m 

m 



m 

t 

m 

m 



m 






NEXTI 



«5 PARANEtERI' 
" THEN 



£SFJ 



FILL DISC WITH PREFJX 
IF PARAMETEH4 9 «NEW 
BESIN 

IF I GEQ THEN 

EKROR (NEXT, H , PARAMETERl, 

CREATEFILE (^50) i 

FILEACCESS IS 7 ; 

FIRST »s J= 1 ; 
LAST Ja 1 & INFINITY 

MODIFIED !9 TRUE } 

N 5= ; 

INORUER Ja FALSE i 

(30 TO NEXT ; 
END ; 
IF I LEQ THEN 

ERROR (NEXT* I 
IF INPUT C3J NEQ 

ERROR (NEXT, 3* 
IF INPUT [63 NEQ 

ERROR (NEXT* 0* 
IF D »* INPUT t53 



SUFFIX 



PARAMETER2 ; 



PARAMETERS) ; 



- I, PARAMETERl^ PARAMETERS) 
10 OR INPUT C43 MOD 30 NEQ 

PARAMETER!, PARAMETERS) > 
THEN 
"FILE IN«, •• USE, ") i 
♦ 2 GTH MAXFILELENGTH THEN 



THEN 



TO", 
" OR 



" LONG. 
DATAFILE 



ERROR (NEXT, 0, "FIlE 
IF PARAMETERS = "OLD 
BEGIN 

INORDER Ja DATAFILE OR READONlYFILE 

N !- ; 

FOR AT ?» 2 STEP J UNTIL 00 

LL CAT3 ;= CAT + 1) & (N I^N + InC ) t SF 3 

END ELSE 
BEeiN 

WAIT (D, FALSE) } 

M !« * 

»* 2 STEP 1 UNTIL 



") ; 

THEN 



& (AT-nCFF] ; 



FOR AT 
BEGIN 
READ 
N :* 



DO 



(LIBRARY, 10, IMAGE C*]) f 
IF CObOLFILE then dec (IMAGE 

ELSE DEC (IMAGE [93* 
GTK N THEN 



C03, 

8) , 



6) 



IF M 

ERROR (NEXT, 0, "SEQERR ", 

LL CAT3 != (AT+l) & (M?sN)CSF3 
INTERUPT (1, 2, AT - i) ; 
END ; 
END ; 

FILEACCESS «' I f 
MODIFIED »» NOT FALSE ; 
LL CD3 . T Js 1 ; 
FIRST Js 2 > 

LAST »= 1 & INFINITY CSF3 & tFF3 
LL C23 , F »= ; 



OCTOEX (M)) ; 
& (AT'DtFFJ 



CLOSE (LIBRARY) ; 

N «» N + INC ; 

AT »s ; 

IF READONLYFILE THEN 
ERRORX (7, "READ ON", 

END ; 



"LY FILE") i 



0U26200 
GII26500 
01127000 
01128500 
01129000 
01130000 
01130500 
0|rl30650 
01130700 

01130750 
01130800 
01130850 

01130900 
01131000 
0U33500 
01134000 
01134500 
01135000 
01135500 
01136000 
01146000 
0lt47500 
01155000 
01155500 
01156000 
01157500 
01157600 
01157700 
0115800C 
01158500 
01158600 

01159000 
01160000 
01160500 
01161000 
01161500 
0116200U 

01164500 
01166000 

01167500 
01167600 
01168000 
01168100 
01168200 
01168210 
01168220 
01168230 
01168240 
01168250 
01168500 
01168600 
01169000 
01169100 
01169500 
01170000 
01171000 



T 

T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



0011 
0015 

0016 
0017 
0017 
0021 
0040 
0041 
0044 

0047 
0047 
0048 

0050 
0055 
0Q55 
0055 

0058 
0061 

0063 
0064 
0069 
0071 
0077 
0078 
0079 
0082 
0083 
0085 
0095 
0095 
0095 
0098 
0099 
0100 
0100 
0104 
0104 
0109 
0109 
0U4 
0121 
0127 
0130 
0130 
0130 
0131 
0137 
0139 
0143 
0148 
0149 

0150 
0152 
0152 
0153 
0155 



c 

i 
i 
i 
i 

i 
i 



i 
• 



41 IS 159 LONG, NEXT 3EQ 



€ 



• 



m 






X******************************* 

DEFINE INCREMENT » 
BEGIN 

IF NOT NUMl THEN 

ERRQRX (7» PARaMETERO* OCTDEX (INOJ 
llSE INC ««! PARAMETERl J 

ENB# ; 

%******** 4 ******** ******* ******* 

PROCEDURE RESEQ ; 

BEGIN 
REAL L ; 

LABEL NEXT ; 

OPENCHECK ; 
IF NUM2 THEN 
BEGIN 

IF NOT NUMl THEN 

ERROR CNEXT, 0* PARAMETER!* "INVALID") ; 

IF NUM4 THEIN 

INC ta PARAMETER4 ; 
IF NUM3 THEN 

M ;s PARAMETERS - INC 
ELSE M J= PARAMETERl - INq i 
IF M + iNc X KOUNT {PARAMeTe;R1*PARAMETER2*-1) GtQ LL [ATl.JJ 

ERROR (NEXT, Q, PARAMETERO* •• ERROR*") ; 
AT ?* LOG CPARAmETERU ' 
IF M ♦ INC les IL ai CAT3,F3tS THEN 

ERROR (NEXT* Or PARAMETERO* " ERROR.") } 

N Js M ; 

tsHlLE <L »= LL tAT]),S LEQ PARAMETER2 DO 
BEGIN 

LL CAT] ♦ S S5 N 1= N + INC ; 
MODIFY (AT) ; 
AT ?« L,T ; 
END i 
END 
ELSE 
BEGIN 

IF NUMl THEN 

INC «s PARAMETERl ; ; 
IF INC X KOUNT ( I* FiNlTY* "D GE« INFINITY THEN 
ERROR (NEXT* C* PARAMETERO* " ERROR.") i 

N S9 ; 

AT J= ; 

WHILE AT 8« LL CAT] , T NEQ I DO 

LL CAT3 . S Ss N »= N + INC ; 
MODIFIED «" NOT FALSE i 
END ; 

N »= N + iNC f 
IF NOT DATAFILE THEN 

INORDER »s HEADQNIYFIIE ^ 
NEXT I 

END RESEQ i 

%************************•****** 

DEFINE TAB » 
BESIN 



START OF 



THEN 



42 IS 



01 


1/1500 




0051 


01 


172000 




0051 


01 


172100 




0051 


01 


172500 




0051 


01 


173000 




0051 


01 


173500 




0031 


01 


174000 




OOSl 


oj 


174500 




0091 


0* 


175000 




OOSl 


01 


175500 




0051 


01 


17560Q 




0051 


s 


EGMENT 


***«*****# 


01 


176000 




0000 


01 


176100 




0000 


01 


176500 




0001 


01 


177000 




0002 


01 


177500 




0002 


01 


178000 




0003 


01 


178500 




0007 


01 


179000 




0007 


01 


179500 




0009 


01 


180000 




0009 


01 


160500 




0010 


01 


180600 




0013 


01 


180700 




0018 


01 


181000 




0023 


01 


leioio 




0034 


01 


181020 




0033 


01 


181500 




0037 


01 


182000 




0037 


01 


t8250C 




0043 


01 


183000 




0043 


01 


183500 




0049 


01 


183600 




0052 


01 


184000 




0053 


01 


185500 




0054 


01 


186000 




0054 


01 


186500 




0054 


01 


187000 




0054 


01 


187500 




0055 


01 


187600 




0056 


01 


187700 




0059 


01 


188000 




0065 


01 


188500 




0065 


01 


189000 




0066 


01 


189500 




0072 


01 


189600 




0079 


01 


190000 




0080 


01 


190500 




0080 


01 


191000 




ooai 


01 


191500 




0082 


01 


192000 




0084 


01 


192500 




0085 




88 LON( 


i * 


NEXT 8EQ 


01 


193000 




0031 


01 


193500 




0051 


01 


193600 




0051 



42 



i 

i 
• 



IF NOT NUMl THEN 01194000 T OQSj 

^ BEGIN 0U9«0lO T 0051 

m IF NOT EMPTYi THEN 01194100 T 0051 H 

TABON J» TOGGLE (TABQN* IJ 01194300 T OOSJ 

^ ELSE 01194450 T 0051 

• ERRORX (7/ PARAMETERO* ONOFF (TABON) S. 01194500 T 005l 4 

OCTOEX (IF CJOBOLFIie. THEN TABAMOUNT + 7 EL,i>t TABAMOUNT * U 01194600 T 0051 

C36J36U2]) i 01194700 T 005l 

• END ELSE 01194800 T 0051 § 

BEGIN 01194900 T 0051 

IF RELATlVENUMBER#C2»23 NEQ THEN 0il949l0 T 0051 

• PARAMETER! »a TABAMOUNT ♦ 1 + 01194920 T 0051 fj 

(RELATIvENuMBER & RELAT I VENUMBERC 1 S 3 < 3 J ) 01194930 T 0051 

ELSE IF COBOLFILE THEN 01194940 T 0051 

• PARAMETER! ;» PARAMETEHl - 6 ; 0|194950 T 005l § 

IF TABAMOUNT :* PARAMETEHl GTR 55 THEN 01195000 T 0051 

TABAMOUNT 1= 55 ; 01195500 T 0051 

• IF TABAMOUNT !» TABAMOUNT - 1 LSS THEN 01197000 T 0051 9 

TABAMOUNT : ? ; 01197500 T 0051 

_ END ^ 01197600 T 0051 

;• ENO## 01198000 T 0091 • 

%•*****•****«**«**************** 01198500T0051 

' SAVEIT « 01199000 T 005l 

• BEGIN 01199100 T 0051 % 

IF NOT NuMl THEN 01199500 T 0051 

ERRORS C7* PARAMETERC* QOTDEX ( SAVEFACTQR) ) 01200000 T 0051 

• ELSE SAVEFACTOR »* PaRAMITERI i 01200500 T 0051 • 

end# ; 01201000 t 005i 

35******************************* 01211500 T 0051 

• PROCEDURE COMPILE f 01212000 T 0051 ^ 

BEGIN 01212500 T 0051 

LABEL NEXT I 01213000 T 0051 

• START Of SEGMENT ****#♦♦*♦* 43 # 

OPENGHECK i 01213100 T 0000 

IF EMPTY2 THEN 01213500 T OOOi 

• ERROR (nEXT^ 3* PARAMETERI* PARAMETER2) ; 01214000 T 0002 % 

IF DATAFIuE AND EMPTY3 THEN 01216000 y 0004 

ERROR (NEXT/ 3f PREFIX* SUFFIX) i 01216500 T 0006 

• IF NOT EMPTY3 THEN 01217000 T 0008 ^ 

IF XFILE (PARAMETERS, "OlSK », 2) LSS 2 THEN 01218000 T 0009 

SO TO NEXl ; 0121850Q T 0011 

• IF PARAMEtERO S= xFILE (•♦LINE 'S USERCODE, -1) ? 7 jHEN 01221500 t 0012 % 

Begin 04223000 t ooi4 

read (library) ; 01223500 t 0015 

• DETACH j 01224000 T 0019 H 

CLOSE (LIBRARY, PURGE) i 01224500 T 0020 

REATTACH ; 01225000 T 0022 

• END ELSE 01225500 T 0023 # 

IF PARAMETERO 6E<5 THEN 01226000 T 0023 

ERROR (NEXT* ** "LINE ", USERCQDE) p 01226500 T 0026 

• IF XeiLE (12* 0, -1) GEO THEN 01227000 T 0030 # 

ERROR (NEXT* 4, PARAMETER!* PARAMETER2) ; 01228500 T 0032 

^ CLOSEFILE * 01229000 T 0034 ^ 

• IF EMPTYS THEN 01230000 T 0035 W 

IF COMPILER 5 ALGOL THEN 01230500 T 0035 

^ PARAMETER3 «* "ALGOL " 01231000 T 0037 

• ELSE IF COMPILER « FORTRAN THEN 01231500 T 0037 • 






• 
m 

:• 

!• 
• 
• 



NEXTJ 
END 



PARAMETERS «= "FORTRAN" 
ELSE IF COMPILER * XALGOL THEN 

PARAMETERS «= "XAlGOl " 
ELSE IF COMPILER » BASIC THEN 

PARAMETERS ?s "BASIC " 
ELSE 

PARAMETERS J« "COBOL " * 
WRITE C2IPPY i;*3# ZIPPER' P AR AMETeR I , C6 163 # 

PARAMETERl* PARAMETERS . C6 :6 J , PARAMETERS* PARAMETERS i [6 J 6 ] * 
PARAMETERS* PREF IX ♦ C6 J 63 * PREFIX* SUFF IX . C6 S 63 » SUPFIX* 
USERCODE . C6 J 63* USERCOOE) ; 
ZIP WITH ZIPPY C*3 ; 

COMPILE ; 



01 
04 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
0| 



232000 
232500 
233000 
233500 
234000 
234500 
235000 
238000 
238500 
239000 
23950Q 
240000 
24200Q 
242500 



43 IS 87 LONG* 



PROCEDURE DITTO * 

BEGIN 
BOOLEAN B ; 



START 



Y) ; VALUE X* Y ; INTEGER X* Y ; 



s "OVERiTE" Then 

J* TOGGLE (DITTOCLOBBER* 2) * 



THEN 



REAL I * 
PROCEDURE LINK (X* 

BEGIN 

LL CX3,T S= Y i 
MODIFY (X) * 
LL tY3.F 85 X * 
MODIFY <Y) I 
END LINK ; 
LABEL NEXT ; 

IF PARAMETERl 
BEGIN 

DITTOCLOBBER 
GO TO NEXT i 
END i 

readonlycheck ; 

IF NOT NUMl THEN 

ERROR (NEXT* 0* PARAMETERO* " ERROR.") * 
IF PARAMETERS = "mQVE " OR PARAMETERS s "MOVE 
BEGIN 

IF NOT NgM2 THEN 

PARAMETERS «= PARAMETER! ; 
B J= ITSOLD CN) ; 

PARAMETER4 5= LL [PARAMETERS »« AT 3 ; 
M Js LL CI Ja LCC (PARAMETERi)3,F * 
IF PARAmETErO »a KoOnT 

SO TO NEXT ; 
IF ITSCLD (PARAMETERS) 

L »= LL CAT3,T 
ELSE 

AT != LL CL «* AT3.F * 
IF (B AND B tm LL EM3,S GEQ N OR N GEQ LL tL3,S) OR 

N+INCxPaRAMeTERO GEQ CIF B THEN PARAMETER* ELSE LL U3)t§ 

ERROR (NEXT, 0, "NO ROOM"* "« MOVE ") i 
IF B THEN 
BE8IN 

LINK <M, L) i 

LINK (AT* PARAMETERS) * 



(PARAMETERI*PARAmETER2**1) 
THEN 



1 LSS C THEN 



THEN 



01 
Ot 
01 
01 
OF S 
01 
01 
01 
01 
01 
01 
01 
01. 

ot 

01 

01 
01 
01 
01 
Oi 
01 
Ol 
01 

01 
01 

01 
01 

01 

Oi 
Qi 

01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
Ot 
01 



243000 

243500 
244000 
244100 

egment ** 

244200 T 

244300 

244310 

244320 

244330 

244340 

244350 

244360 

244500 

244550 

244600 

244700 

244850 

244900 

245000 

246000 

246500 

246510 

246520 

246S30 

246540 

246550 

246560 

246570 

246560 

246590 

246600 

246610 

246620 

246630 

246640 

246650 

246660 

246670 

246660 

246690 

246700 



T 
T 
T 
T 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

T 
T 

T 



0040 
0041 
0044 
0045 
0048 
0049 
0050 
QGS2 
0061 
0066 
0077 
0084 
0085 
0086 
NEXT SEG 
0051 
0051 
0051 

0051 
******** 

0000 
0000 
0000 
0000 

0005 

0008 
0013 
0016 
0016 
0016 
0017 
0018 
0021 

0023 
0023 
0024 
002s 
0029 

0030 
0031 
0032 
0033 
0035 
0039 
0045 
0047 
0048 
0050 
00S3 
0054 
0061 
0071 
0078 
0083 

0083 
0083 

0084 



44 



f 

i 

i 
« 

i 
i 
i 






• 

• 

• 
• 
# 

M 

'm 
m 



LINK (PARAMETtRa,F» I) / 
END ELSE 

PARAMETERS ?s L i 
DO BEGIN 

Li IlJiS 5 5* N J , 

N Is N 4 INC ; 

MODIFY (I) ; 
EN0 UNTIL I »s 11 U3.T s PARAMETERS * 
INORDER t» FALSE j 
GO TO NEXT f 
END ; 
CLOSE (DISC) i 

prewhere !' Parameters ?» -i ; 
if num2 then 

wait (kount (pahameterl* parameters* clock)# false) 
Else parameteh2 »s parameter! } 
fill library with prefix* suffix ; 

I Js LOC (PARAMETEHJ) ; 

M }= D ; 

B J5 NOT (0ITT0CLC8BER EQV TEMpTQQ) ; 

WHILE CL !«? U CI3)#S LEQ PARAMETERS AND I LEQ M 00 

BEGIN 

IF PARAMETEH3 + 1 NEQ PARAMETERS «s I THEN 

READ SEEK (LIBRARY El • 23? ; 
IF ITSOLD (^) AND ^ THEN 

ERROR CNEXT# 0* "OVERITE"* - IS OFF") i 

READ (LIBRARY* JO* IMaGE t*3) * 

WDISC i 

INTERUPT (1* 2* I • 2) * 

END f 
NEXT! 

CLOSE (LIBRARY) ; 
END DITTO ; 

PROCEDURE REMOVE i 

BEGIN 
LABEL NEXT i 

IF EMPTy2 AND PARAMETERl » "LISTInG" THEN 
BEGIN 

PARAMETERl != "LINE " i 

PARAMETERS »» U5ERC0DE * 

END I 

IF xeiLE (12* C* ^) L5S 4 THEN 

GO TO NEXT f 
IF PARAMETERl a PREFIX THEN 

IF PARAMETERS = SUFFIX AND READWRI TEFI LE THEN 
BEGIN 

READ (DISC t03) ; 
DETACH ; 

CLOSE (DISC* PURGE) ; 
REATTACH ; 
FILEACCESS Js ; 

INORDER !« TRUE ; 
GO TO NEXT I 



01 
01 
01 
01 
01 
01 
01 
01 
Ot 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 

01 
01 
01 
01 
01 
01 

01 
01 

01 
01 
01 
01 
01 
01 
44 IS 1 
01 
01 
01 
01 
iF S 
01 
01 
01 
Ol 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



246710 
246720 
246730 
246740 
246750 
246760 
246770 
246780 
2«6790 
246800 
246810 
24700C 
247100 
247500 
248500 
250000 
2b0500 
251600 

25200C 
252100 

252500 
253S00 
254000 
254500 
255000 
255500 

256000 

256500 

257000 
257500 
258000 
259500 
260000 
261000 
64 LONG* 
261500 T 

262000 T 
262500 T 
263000 T 



START QF SEGMENT ** 



263100 
263200 
263300 
263400 
263500 
263600 
263700 
264000 
264500 
265000 
265500 
266000 
266500 
267500 
268000 
268500 
269000 



0085 
0087 
0087 
0088 
0089 
0094 
0095 
0098 
0103 

0105 
0105 
0105 
0107 
0109 
0109 
0109 
0115 
0119 

0120 
0121 
0124 

0130 

0130 
0132 

0138 
0140 

0145 
0146 

0150 
0152 
0158 
0159 
0160 
0161 
NEXT 5EG 
0051 

0051 
0051 
0051 

0000 

oooi 

0002 
0003 
0003 
0003 
0005 
0006 
0006 
0009 
0009 
0014 
0015 
0017 

ooie 

0019 
0021 



€ 

f 
i 

i 
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• 

• 






• 



USE. ") # 



END ; 
IF INPUT [6] NEQ THEN 

ERROR (NEXT* 0' "FIlE IN' 
READ (LIBRARY) ; 
DETACH ; 

CLOSE (LIBRARY* PURGE) i 
REATTACH ; 
NEXT! 

END REMOVE ; 



PROCEDURE LISTING ; 

BEGIN 
BOOLEAN LOCKED i 

INTEGER P§ ; 

LABEL NEXT i 

FILE LINE 15 (2* 15) ; 

FILE FEEDBACK DISK SERIAL C2* l^» 30) t 

REAL StRESM procedure REAOZ (Z* SKP, A* N) 

VALUE SKP* A# N I 

BEGIN 

LABEL EXIT 

SI : = 

SI ; = 

DI S* 

A CDI 

OS »* 

EXIT! 

END READZ ; 

IF XFILE ("LINE 

60 TO NEXT i 
IF NOT EMPTYl THEN 

IF I »= FILtTYPE (PARAMETER!) * OR I s DATA THEN 



a5 IS 



01269500 T 
01273000 T 
01273500 T 
01274000 T 
01274500 T 
01275000 T 
01275500 T 
01276000 T 
01276500 T 
39 LONG^ 



0024 
0024 
0025 
0010 
0034 
0035 
QG36 
0037 
0038 
NEXT SEQ 
0051 
0051 
0051 
0051 






********** 



z ; 

Sl + SKP f 

LOC READZ i 
Js DI ♦ 8 } 

N OCT i 



01 I* DI ' N J OS !» N CHR I JUMP OUT TO EXIT) | 



'* USERCODE* I) LSS 1 THEN 



ERROR (NEXT* 5» "TYPEJ "» PARAMETERl) i 

Wait (Input C53, ylockeo) ' 

YLOCKED J= LOCKED Jb TRuE ' 

Fill feedback with "line "* usercool i 

If NUm2 and NUM3 AND NUM<» THEN 
BEGIN 

PARAMETEKl J* 1 ; 

WRITESEGMENT ; 

PARAMETErO !s if I«FOrTbaN THEN 10 ELSE 

P5 js IF I GEO ALGOL THEN 

END 

Else if parameter2«c6«30] * 

s ^SYNTAX " THEN 
BEGII!!! 

PARAMETER! «« 2 i 

P5 «s IF laFORTKAN THEN 9 ELSE l2 ; 
END 

ELSE IF EMPTYL THEN 
BEGIl!^ 

FILL LINE WITH "LINE 

DETACH i 

WRITE (LINE) ; 

REATTACH ; 



REALd GEQ 
PARAMETERO - 1 ELSE ; 

"ERROR" OR PARAMETERS 



AL6QL)+lg ; 



USERCOOE 



01277000 T 

01277200 T 

01277400 T 

01277500 T 
START OF SEGMENT 

01277510 T 0000 

01277600 T 0000 

01277800 T 0000 

0127800C T 0003 

01278200 T 0007 

01278210 T 0007 

01278220 T 0007 

01278230 T 0008 

012782^0 T 0008 

01278250 T 0008 

01278260 T 0000 

01278270 T 0009 

01278280 T 0012 

01278290 T 0012 

01278300 T 0012 

01278400 T 0014 

01278600 T 0015 

01279200 T 0016 

01279400 T 0017 

01281600 T 0020 

01281800 T 0025 

01282000 T 0028 

01282200 T 0030 

01282400 T 0034 

01282600 T 0037 

01282800 T 0037 

01283200 T 0038 

01283300 T 0039 

01283310 T 00*3 

01283600 T 0046 

01283800 T 00*6 

01284000 T 0049 

01284100 T 0050 

01284200 T 0050 

01284300 T 0051 

01284310 T 0034 

01264400 T 0054 

0128A600 T 0057 

01284800 T OOSa 

01285000 T 0062 

01285200 T 0063 

01285400 T 0067 



46 



# 

t 
t 

• 

• 



m 

m 



m 



NEXT: 



PARAMETEHl ?= 3 i 
END 
ELSE 

ERROR (NEXT* 0* PARAMETERO* " ERRQR*") ' 
00 BEGIN 

READ (FEEDBACK* 15* ZiPPY £*J) [NCXTJ ; 

IF PARAMETERl « 1 THEN 

BEGIN 

IF I 9 FOKTRAN THEN 
BEGIN 

IF N «= READ2 (ZIPPY [U], H , 1, 4) NEQ "LUNG*' THEN 
IF N «=» READZ (ZIPPY Ell], 3# Of 4) NEQ THEN 
M ;s N Ji 
END 

ELSE IF I GEQ ALGOL THEN 
BEGIN 

IF N J= ReaDZ (ZIPPY [143* «# 0* a) NEQ C ThEN 

M != N ; 

END 

Else m j= readz (zippy tui* n i9 o, o, a) ; 

IF M ■ PARAMETER2 AND N s THEN 
BEGIN 

N := READZ (ZIPPY [PARAMET£RO]# REAL (UCQBuLJ + Ht 0* H) i 
IF N GTH PARAMETER-Sf THEN 

GO TO NEXT ; 
IF PARAMETERS lEQ N THEN 
BEGIN 

PARAf^ETER3 t» N ; 

N i- HeaDZ (ZiPPY tP5]* IF I»CQB0L THEN 3 ELSE 0* 0* 8) i 
WRITESEQ / 
WRITERELACOR i 
END ; 
END ; 
END 

ELSE IF PARAMETtRl = 2 THEN 
BEGIN 

IF I = COBOL THEN 
BEGIN 

M J» READZ (ZiPPY C03* 0» 1# 1) ; 
IF M s " " OR M s «[" THEN 

M J= READZ (ZiPPY C03* 5* Qt 6) 
ELSE M «s ; 
END 

ELSE M Js READZ (ZIPPY CP5J* 0* 0* 8) ; 
IF M * AND N GTR THEN 
BEGIN 

WRITESEG ; 

WRITERQW (ZIPPY* TRUE* DATA) ; 
END ELSE N S« M i 

END 
ELSE 

WRITE (LI^E C0BL3* l5, ZIPPY C*3) i 
INTERRUPT (1) ; 
END UNTIL BOOLEAN (BREAKI) ; 

I 
I 

N S= RESETN ; 
IF LOCKED THEN 



1285600 
1285800 
1286000 
1286200 
1286400 
1287000 
1287200 
1287400 
128760C 

1287800 
1288000 
1288200 
1288400 
1288800 
1289000 
1289200 
1289400 
1289600 
1269800 
1293000 
1293200 
1293400 
129360C 
1294600 
1294800 
1295000 
1295200 
12954CC 
1295600 
1296600 
1297000 
1297200 
1297400 
1297600 
1297800 
1298000 
1298200 

1298400 
1298600 
1298800 
1299000 
1299200 
1299400 
1300000 
1300200 
1301200 
1301600 
1301800 

1302000 
1302200 
1302400 
1302600 
1302800 
1303000 
1303200 
1303400 
1303500 



0068 

0068 
0066 
0068 
0074 
0074 
0079 

ooeo 

0060 
0081 

0081 
0085 

oo@e 

0090 
0090 
0092 
0093 
0096 
0097 
0097 

OlOl 
0103 
0103 
0107 
0108 
0108 
0109 
OUO 
Olio 
0115 
0116 
0117 
0117 
0117 
0117 
0118 
0118 
0119 
0120 
0122 
0124 
0126 
0129 
0129 
0132 
0134 
0134 
0135 
0137 
0138 
0138 
0136 

0143 
0146 
0150 
0151 
0191 



• 



i 
i 



t 

t 



m 
m 
m 



YUOCKED Is FALSE / 
END LISTING i 

Xlt-klf*********!*** ****** ********** 

PROCEDURE INLINE } 

BEGIN 
LABEL NEXT ; 

DEFINE QUICK « FALSE* ; 

IF PARAMETERl = "ECHO " ThEN 
BEGIN 

inlineecho ;» toggle cim-ineecho* 2) ; 
go to next ; 

END ; 
READ0NLYCHECK ; 

IF NUMl THEN 
BEGIN 

N !?: PARAMETERl ; 

IF NOT ITSQlD <N) THEN 

ERROR (NEXT, 0* "HISSING", OCTDEx CN)) i 

IF NOT MOREiNPUT THIN 
WRITEAT ; 

I 1= PARAMElER2.t«l6] ; 
END 
ELSE 
BEGIN 

AT »s IL ILOC CN)3,F ; 

N »= LL [ATKS } 

I ;= PARAMETERl. C6J63 ; 

END ; 

Ip NOT NUMl OH MOREINPUT TH£N 

RDISC <AT# RECORD) ; 
INLINETOG «= TRUE ; 

IF I = "I" THEN 

M 1= I 
ELSE IF I = "U" THEN 

ELSE IF I s "R" THEN 

M :a 3 
ELSE M «s ; 
NEXT* 

END INLINE ; 

PROCEDURE COLUMN ; 
BEGIN 

INTEGER STREAM PROCEDURE GETCHAR (S) ; 

BEGIN 
LABEL NOPE* YES, XIT i 
DI »s LOC GETCHAR $ 
SI «s S J 

2(-!»0ClF SC 9 ALPHA THEN ELSE IF Sc . " " THEN £LSE 
IF SC » """ THEN 

JUMP OUT 2 TO YES 
ELSE IF SC s "«" THEN 



Ut IS 



START OF 



47 IS 



START OF 






13C360U 


T 


0152 





13C3800 


T 


0154 




158 LONG, 


NEXT 8EG 





1345000 




0051 





L3A5500 




0051 





1345550 




0051 





L345560 




0051 


SEGMENT 


********** 


0' 


L345570 




0000 





1345600 




0000 





L345610 




oooo 


0, 


L345620 




0001 


Oj 


L345660 




0004 





1345670 




0006 


o: 


L345700 




0006 


0] 


L346000 




0007 


o; 


L346500 




0008 


0: 


L347000 




0008 


0' 


1347500 




0009 


01 


1348000 




oou 


01 


1348500 




0016 


0] 


L 349000 




0017 


o; 


1349500 




0020 


0: 


1350000 




0021 


0; 


1350500 




0021 


0- 


L351000 




0021 


OJ 


1351500 




0022 





1352500 




0027 


o: 


L353000 




0031 


0. 


1353500 




0032 


0; 


L353600 




0032 


0] 


1354000 




0034 


01 


L354500 




0037 


0' 


1356000 




0039 


o; 


1356500 




0040 


0] 


L357000 




0040 


OJ 


L357500 




0042 


0] 


1358000 




0043 


03 


1358500 




0045 


o; 


L359000 




0045 


01 


L35950C 




0047 


o: 


L359600 




0048 




49 LONG, 


NEXT SEG 


0; 


1360000 




0051 


03 


1360100 




0051 


0: 


L360150 




0051 


0] 


i360200 




0051 


SEGMENT 


********** 


o: 


1360250 




0000 


03 


L360300 




0000 


03 


13603S0 




0000 


03 


1360400 




0000 


OJ 


360450 




0000 


0] 


i360500 




0002 


03 


L360550 




0003 


03 


1360600 




0003 



47 



i 
i 
i 
i 






48 



m 



NOPEJ 



YESJ 



XITJ 



m 

m 
m 

m 

# 



JUMP OUT 2 

EUSE IF SC 3 

4[)HP OUT 2 

EUE IF SC « 

JUMP OUT 2 

ELSE IF SC 5 

JUMP OUT 2 

S| i«s Si * 



TO YES 
tt(« jHEN 
TO YES 

"C" THEN 
TO YES 

"I" THEN 
TO NOPE J 



OS 
GO 

SI 

01 
OS 



Is 

TO 

is 
tr 



e in 
xiT ; 

SI + I 

01 + 7 
CHR ; 



i)3 i 
"+0000001" ; 



END GETCHAR ; 

IF I »= GETCHAR (IMAGE) GEO THEN 

CHARACTER :s J ; 
IF NUMl THEN 
BEGIN 

COLSTOPl J* MIN (PARAWETERl* 80) i 

IF NU«2 THEN 

BEGIN 

CQLST0P2 »» MIN (MAX (PARAMETER2* CCLSTOPU^ 80) ; 

IF NUM3 THEN 

BEGIN 

C0LSTQP3 »=? MIN (MAX (PARAMETERS* COLSTOPg)* 80) ; 

IF NUM4 THEN 

BEGIN 

C0L5T0P4 19 MIN 

coiSTOPS J* a ; 

END ELSE 

COLSTOPS ;s 3 ; 
END ELSE 

COLSTOPS »- 2 ; 
END ELSE 

COLSTOPS $5 I ; 
MAXCOLSTOP M COLSTOP 

END ELSE 

IF EMPTYl THEN 

BEGIN 

SHOW (PARAMETERO, ONOFF 



(MAX (PARAMETERS, CQLS7GP3)# 80) 



EC0LST0PS3 } 



IF COLSTOPS LSS 

PARAMETERl '^ 

ELSE PARAMeTe«1 

IF COuSTDHS uSS 

parametlr2 j= 
else parameter2 
Show (parameteri* 

IF COLSTOPS LSS 3 
PARAMETERS 85 

ELSE PARAMETERS 

IF COLSTOPS LSS 
PARAMETLR4 := 

ELSE PARAMETERS 



(COLUMNS) & (CHARACTEft)C425S2;63) ; 



1 THEN 

& '»*"C6U256] 
IS OCTOeX (COLSTOPl) 

2 THEN 

& "#"[6»42«63 
Js OCTDEX (C0LSTCP2) 

PARAMETER2) ; 

THEN 
& »#"t6'^2«6] 
»s OCTDEX (C0LST0P3) 
4 THEN 

& "#"C6»S2»6] 
?a OCTDEX (COLSTOPS) 



ERRORX (7j. PARAMETERS, PARAMETERS) ; 



0136065Q 

01360700 

01360750 

01360800 

01360850 

01360900 

01360950 

01361000 

01361050 

013611OC 

01361150 

01361200 

01361250 

01361300 

01361350 

01361S00 

01361450 

01361500 

0136155Q 

01361600 

01361650 

01361700 

01361900 

01361950 

01362000 

01362050 

01362100 

01362150 

01362200 

01362250 

01362300 

01362350 

01362400 

01362450 

01362500 

01362550 

01362600 

01362650 

01362675 

01362700 

01362750 

01363100 
01363200 

013632J0 
01363220 
01363230 
01363240 
01363250 
01363260 
01363270 
01363280 
01363290 

01363300 

01363310 
01363320 
01363330 
01363S10 



T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 



0004 

0005 
0006 

0006 
0007 

0008 
0009 

0009 
0010 

0010 
0012 

0012 
0012 
0013 
0013 
0013 

0013 
0015 
0017 
0019 
0020 
0020 
002S 
002S 
0025 
0031 
0032 
0032 
0038 
0039 
0039 
0045 
0047 
0047 
0048 
0048 
0030 
0050 
0052 

0054 
0054 

0055 
0056 

0060 
0061 

0063 
0069 
0070 
0071 
0074 
0076 
0077 

0078 
0081 
0082 

0064 
0087 



i 

i 
i 

i 

i 
i 

1 



• 



• 



END ELSE 
COLUMNS r 
END gOLUMN ; 



TOGGLE (COLUMNS* 1) ; 



* * 



* * * 



UNTIL RSWDM 00 
RSWD tn THEN 



PROCEDURE TEACH ; 

BEGIN 
LABEL NEXT ; 

IF NOT EMPTY! THEN 
BEGIN 

M »= -1 j 

FOR I ss iJTEP I 
IF PARAMETER! « 

BEGIN 
M {X I ; 
I ;s RSwOM ; 
END ; 
IF M LSS THEN 
BEGIN 

IF I l»? XFILE CPARAMETERif PaRAMETER2I8M ACROLiBRA«Y* 

AND MACRQLIBRARY NEQ ♦•MACRO " THEN 

I »5 XFILE CPARAMeTeRI* PARAMETER2: ="MA qRO ♦', - 1 ) ; 
IF I LSS 2 THEN 
BEGIN 

SHOW (PARAMETERl* ♦' INVALI"? * 



CNEXT# 0# «P»* 



ERROR 
END ; 

NUM2 :s FALSE ; 
NUM3 t' BOOLEAN (2) i 
LISTJT (03 ; 
SO TO NEXT ; 

END ; 

PARAMETERl »s "TEACHER" f 
PARAMETERS «» OCTDEC (VEHSICN) ; 
IF XFILE (PARAMETERl* PARAMETER2* 

SO TO NEXT ; 
READ (LIBRARY tM3* I, IMAGE [*]) 
N J5 DEC (IMAGE CO]* 8) * 

} 

OIV lOOOO i 



"* RWTEACH) ; 



2) LSS 2 THEN 



MOD lOCOO i 



CLOSE (LIBRARY) 

PARAMETERS «- N 

NUM3 Js TRUt ; 

PARAMETERS Ss N 

NUM4 ;s TRUE ; 

N !* RESETN ; 

LISTIT (17) i% POSTING ANQ QUICK 
END ELSE 
BEGIN 

WRITE (PRETANK C*], 

WRITETWX ; 

FOR I »» STEP 7 UNTIL 

BEtIN 

IfRlTE (IMAGE t*3* TEACH2' FOR M js STEP 1 UNTIL 6 
[(PARAMETERO I* RSWO CI ♦ M]).[6t63# PARAMETEROi) 
WHITEROW (IMAGE* FALSE' COBOL) ; 

END ; 

WRITE (IMAGE C*3' TEACH3) '» 



TEACHU ; 

RSWDM DO 



DO 
i 



01363420 T 0088 

0136343Q T 0088 

01364500 T 0092 

48 IS 93 LONG* NEXT SEG 

01365000 T 003J 

01365500 T 0051 

01366000 T 0051 

01366500 T OOSl 
START OF SEGMENT ********** 

01367000 T 0000 

01367500 T OOOl 

01368000 T 0001 

01368500 T 0002 

01369000 T 0004 

01369500 T 0005 

01370000 T 0005 

01370500 T 0006 

01371000 T 0007 

01S71500 T 0009 

01371600 T 0010 

1) LSS 2 01371700 T 0010 

01371800 T 0013 

01371830 T 0014 

01371900 T 0017 

01372000 T 0018 

01372020 T 0018 

01372040 T 0020 

01372050 T 0025 

01372100 T 0025 

01372200 T 0026 

013?2300 T 0028 

01372400 T 0029 

01372450 T 0029 

01372500 T 0029 

01373000 T 0030 

0137350C T 0032 

01374000 T 0034 

01375000 T 0034 

01376000 T 0040 

01376500 T 0042 

01377000 T 0043 

01377500 T 0045 

01378000 T 0046 

01378500 T 0048 

01379000 T 0049 

01379500 T 0050 

01380500 T 0051 

01380600 T 0051 

01381500 T 0054 

01382000 T 0058 

01382500 T 0058 

01383000 T 0060 

01383500 T 0060 

01384000 T 00*6 

01384500 T 0076 

01386500 T 0078 

01387000 T 0080 



€ 
i 
i 



49 



i 
i 

t 



m 

m 






m 

m 



• 

m 



WRITEROW (IMAGE* FA|,SE* COBOL) ; 

END } 

NEXT? 

END TEACH i 

%***************♦*************** 

DEFINE PERCENT s 

BEGIN 

TRANSLATING is? BOOLEAN (I Is REAL (TOGGLE (TRANSLATING* 1))) ; 

TRANSLATEI I* I f 
END# ; 

%-kii^iiitik************* ************ 

PROCEDURE STOP ; 

BEGIN 
DEFINE DIRCTRY « CONTROLS* ; 

LABEL NEXT ; 

IF BOOLEAN ( A8N0RMALEND ) THEN 
BEGIN 

EMPTYl IS A8N0RMALEND « 3 i 
ABNORMALEND ts BREAKI I* f 
If BOOLEAN (INREAOYQ) THEN 
BEGIN 

FOR I Ss i STEP I I^HILE READYq tU NEQ USER UU ; 
FOR I »= I ■► 1 STEP 1 UNTIL READYQTOP DO 

READYQ n • n «=» READYQ UJ ; 
READYQTOP Is READYQTOP • I i 

inreadyq «* ; 

END ; 
END ELSE 

Begin 
if fileopen and parameterl neq "os " then 

CLQSEFILE i 
WRITE (PHETANK C*]* EOJJ i 
WRITETWX ; 
IF NOT EMPTYl THEN 

savestate ; 
if count! geq then 

BEGIN 

ABNORMALEND <* JF EMPTYi THEN 2 ELSE 4 ; 

STATION J- f 

GO TO NEXT ; 
END i 

END 'f 

FORGET (STATIONI) ; 
I «s 2 X SLOTl ; 

READ (Rl i^blf 90, DIRCTRY C*3) ; 
iF" EMPTYl THEN 
DIRCTRY tn »= 

ELSE 

DIRCTRY Cl3.Cl»l3 is ; 

DIRCTRY [1+13 l» ; 

WrITI (Rl [453. 90* DIRCTRY [*]) ; 

STATION Ja ; 

IF USER N£Q BIGBIRD THEN 

BEGIN 

WRITE (BUFFERS CUSER* *3* 45* BUFFERS [BIGBIRD* *V i 



01387500 

01390500 
01390600 
01390700 



49 IS 87 LONG* 
01391500 T 
01392000 T 
01392500 T 
01393000 T 
01393500 T 
01394500 T 
01^02000 T 
01402500 T 
01403000 T 
01403100 T 
START OF SEGMENT 
01403500 
014C3600 
014C361U 
01403620 
01403630 
04403630 
01403690 
01403700 
01403750 
01403775 
0$403800 

01403810 
01403825 
01403850 
01403875 
04403900 
01404500 
01407000 
01407500 
01407600 
014C7700 
01407710 
01407720 
01407730 
04407740 
01407750 
01407760 
01407800 
01407900 
01408000 
OHOeiOO 
01408500 
01408600 
01408700 
01408800 
01409000 
01409500 
01410500 
01415100 
01415U0 
01415130 



0084 

0086 
0086 
0086 
NEXT SEQ 
0051 
0051 
0051 
0051 

0051 
0051 
0051 
0051 
0051 
0051 



********** 5Q 

T 0000 

T 0000 

T OOOi 

T 0001 

T 0005 

T 0008 

T 0010 

T 0010 

T 0015 

T 0019 

T 0022 

T 0023 

T 0025 

T 0025 

T 0025 

T 0025 

T 0027 

T 0028 

T 0032 

T 0033 

T 0034 

T 003S 

T 0037 

T 0037 

T 0041 

T 0042 

T 0044 

T 0044 

T 0044 

T 0046 

T 0048 

T 0053 

T 0054 

T 0055 

T 0056 

T 0059 

T 0061 

T 0066 

T 0066 

T 0067 

T 0068 



i 
i 

i 
i 
i 
i 
i 
« 



• « 

IF BOOLEAN CINREAOYQ) THEN 01415140 T 007l 

^ eOR I «= STEP 1 UNTa READYQTQP 00 0H15150 T 0072 

• IF READYQ ill « BIGBIRD THEN 01415160 T 0074 f 

READYQ [I] 19 USER ; 01415170 T 0075 

READ CHI [IF INREADYQ»3 THEN 46 ELSE SLOTU* 90, CONTROLS C*J) i 01415180 T 0079 

• FILEACCESS ;« CONTROLS C5U } 01415190 T 0087 f 

IF FILEQPEN THEN 01415200 T 0089 

•BEGIN 01415210 T 0090 

N Js BIGBIRD X 32 ; 01415215 T 0090 1 

M «5 CONTROLS C 57 3 .LEFTSIDE ; 01415220 T 0092 

FOR I :« STEP I UNTIL M 00 01415230 T 0093 

• WRITE (LINKLISTS CUSER32 + 1, *3, 256* 01415240 T 0095 g 

LINKLISTS EN * I* *3) ; 01415250 T 0096 

^ END ; 01415260 T OlOl 

• IF XDEX ;- CONTROLS [623 GEQ THEN 01415265 T 0101 f 

BE6IN 01415270 T 0103 

WRITE CXAHRAY [ySER, *U XMAX X 13# XARRAY [BJGBIRD* *3) i 0141527b j 0103 

• FOR XDEX 1=* XDEX STEP '1 UNTIL DO 01415280 T 0107 fl 

IF BOOLEAN CXNCHRS ) , [ 1 « 1 3 THEN 01415285 T 0109 

BEGIN 01415290 T OlU 

• READ (lO C2xMAXUSERS*XMAXxt}IGBIRD*XDEX3* 30* IMAGE E*3) ; 0*415295 T 0U2 tt 

WRITE (10 C2XMAXUSERS+XMAXXUSER+XDEX3> 30* IMAGE [*3) / 01415300 T 0119 

■^ END ; 01415305 T 0126 

• EN0 ; 01415310 T 0129 % 

END ; 01415315 T 0129 

BIGBIRD !« BIGBIRD •» 1 ; 0*415500 T 0129 

• NEXT? OI416500 T 0130 § 

END ; 0141700C T 0131 

•no .-„ „ „ . 50 IS 132 LONG* NEXT SEG 2 

PROCEDURE PROGRAM f 01417100 T OOSl % 

BEGIN 01417110 T 0051 

LABEL NEXT* EXIT ; 01417120 T 0051 

• START @F SEGMENT ********** 51 H 

NEXTl 01417150 T 0000 

CASE VERB OF 01417160 T 0000 

• BEGIN 01417170 T 0000 # 

EXECUTE i 01417175 T OOOl 

DITTO ; 01417180 T 0002 

• COPY i 01417190 T 0003 # 

INLINE ; 01417200 T OOO4 

^ ZIPIT } 01417210 T 0005 

W CHANGE ; 01417220 T 0006 # 

EDIT * 01417230 T 0007 

SAVEIT ; 01417240 T 0008 

• RESEQ * 01417250 T 0014 

PUNCH ; 01417260 T 0015 

•PRINT ; 01417270 T 0016 

DELETE j 01417280 T 0017 

CLQSEIT ; 01417300 T 0018 

•COMPILE } 01417310 T 0021 

COLUMN * 0J417320 T 0022 

SCA,yj ; 01417330 T 0023 

LISTING ; 01417340 T 0024 

• INCREMENT ; 01417350 T 0025 

TAB i 01417360 T 0031 

PERCENT ; 01417370 T 0061 

• GUICKLIST ; 01417380 T 0067 



>* ^'^ 



• 

• 






• 



LisTiT (0) ; 

OPEN ; 
MAIi. i 
TEACH i 
REMOVE ; 
REPLACE } 
STOP J 

60 TO EXIT ; 
END ; 



If bigbird geq o then 

GO TO NEXT > 
EXITl 

END PROGRAM i 

BOOLEAN PROCEDURE HQ (START) ; 

VALUE START i 

BOOLEAN START ; 

BEGIN 

SAVE FILE CUT RONE DISK SERIAL tlU?] «R/C« «#l» CU 90, SAVE 99) } 

SAVE FILE OUT RTWO DISK SERIAL tl5;96] "R/C" "tf?" Ci* 256* SAVE 9V) ; 
ARRAY DIRCTRY» NEWUIRCTRY {0:903^ 
LINKLIST C0J255] ; 

LABEL enoofprogram ; 

CHARGE (0) ; 
FREEFILE CO) ; 
IF START THEN 
BEGIN 

Search crone* Image c*3) ; 
if image £63 gtr then 

BEGIN 

I «= STATUS (IMAGE i*}) > 

WRITE (TWXOUTPUT (II^AGE Cq])* USERUN) ; 

GO TO ENOOFPROGRAM ; 

END ; 

IF IMAGE C03 ^EQ THEN 
BEGIN 

REAP (Rl C*53* 90* DIRCTRY t*3) ; 

DIRCTRY [903 S= 12 * 

FOR I != STEP 2 WHILE USERCODE |a DIRCTRY tU NEQ 12 DC 
OIRCTrY CI3 '* ABS (USERCODE) * 

WRITE (Rl U53* 90» DIRCTRY C*3) i 

END ELSE 
BEGIfel 

DiRcTRY [03 «* 12 ; 

WRITE CRONE [453* 90* DIRCTRY C*3) ; 
END ; 

SEARCH (RTWO* IMAGE C*3) * 
IF IMAGE [03 LSS THEN 

WRITE (RTW0C03* 1* IMAGE [*3) ; 
END ELSE 
BEGIN 

READ (Rl [453* 90* DIRCTRY i*}).} 

USER 1= -2 ; 

FOR N J* STEP I UNTIL 1 DO 



01417390 




0069 


01417400 




0070 


01417410 




0071 


01417420 




0072 


01417430 




0071 


01417440 




0074 


01417450 




0075 


01417460 




0076 


0*417470 




0077 


START OF SEGMENT 


***«r*4^**** 52 


52 IS 30 LONG, 


NEXT SEQ 51 


01417480 


T 


0077 


01417490 


T 


0078 


01417500 


T 


0078 


o«4ieooo 


T 


0079 


51 IS 80 LONG* 


NEXT SeG 2 


01418100 




0051 


0141820C 




0051 


01418300 




0051 


01418500 




0051 


01418600 




00 II 


START 6F SEGMENT 


********** 53 


01418700 




0006 


01418800 




0012 


01418900 




0014 


01419000 




0016 


01419100 




0016 


01419150 




0017 


01419200 




0018 


01419300 




0018 


01419500 




00J9 


0*420000 




0021 


01420100 




0022 


01420200 




0022 


0142030C 




0025 


01420500 




0030 


01420600 




0032 


01421000 




0032 


01421500 




0033 


01422000 




0033 


01422500 




0039 


01423000 




0040 


01423500 




0045 


01424000 




0047 


01424500 




0052 


01425000 




0052 


01425500 




0052 


01426000 




0053 


01426500 




0058 


01432500 




0058 


01433000 




0060 


01433500 




0061 


04436500 




0067 


01436600 




0067 


01437300 




0067 


01437500 




0073 


01437600 




0074 



i 
I 
i 
i 

i 
i 
i 



• 



# 

• 
• 



# 



FOR I I* 
IF USER 
BEGIN 
READ 
FIUEA 

IF ri 

BEGIN 

New 

WRI 
IF 
BEG 
R 
N 
M 
F 
B 





END 

END ; 

END i 
NEWOIRCTRY 
IF USER GEQ 
WRITE (RO 

Close cri* 

READ CR2 [0 
CUOSE (R2^ 
ENDCFPROQRAMJ 

RC M TRUE 
END ; 

END RC * 



STEP 2 WHILE USERCODE ?« OIRCTRY tU NEQ 12 DO 
CODE NEQ THEN 

CRl tI/23* 90# CONTROLS C*3) f 
CCESS I* CONTROLS C5U ; 
LEQPEN OR BOOLEAN (N) THEN 



DIRCTR 
TE (RO 
FILEOP 
IN 

EAD SE 

EWDIRC 

Ja CO 

OR 5 

EGIN 

READ 

WHITE 

NO ; 

F M NE 

WRITE 

IRCTRY 



Y EUSER «' USER ♦ 23 t* USeRCOQE ; 
NE* 90# CONTROLS C*3) i 
EN THEN 

£K (R2 tl6 X U) ; 

TRY [USER + 13 »* OIRCTRY [I + U ; 

NTROLS C573. LEFTSIDE i 

s STEP 1 UNTIL M DO 

CR2* 256, LINKLIST i*}) i 
CRTwO# 'i^t» LINKLIST 1*3) ; 

Q 31 THEN 
(RTWO i%t X USER ♦ 313* i* CONTROLS C*3) ; 



[USER + 23 ?s 12 f 

THEN 
NE CA53* 90* NEWOIRCTRY C*3) ; 
PURGE) * 

3) ; 

PURGE) ; 



; 



m 

m 



CONTROLS [903 J? 12 * 
IF NOT RC (TRUE) THEN 
BEGIN 

BI6BIR0 «a -1 / 

TO Js 150 / 

FREEMEAD != MaXfRLEHEAD '' (XMaX + 2) x MaXUSeRS ; 

PROGRAM / 

BOOL »= RC (FALSE) ; 

IF XFILE {"TEACHER'% OCtD&C (VERSION)* "D GTR THEN 

READ (LIBRARY) ; 

END ; 



END. 



NUMggR OF ERRORS OETEC^ED s 0, COMPILATION TJHe^ 325 SECONQS, 

p«T SIZE * I7i; Total segment size * 4970 words; disk size = 360 segs; no. pgm« segs • 

ESTIMATED CORE STqraGE REQUIRED » 10779 WORDS, 
estimated auxiliary memory REQUIRED s WORDS. 



GH38000 




0075 




GH39000 




0079 




QH39500 




0080 




OH^OOOO 




0081 




01440100 




0087 




01440500 




0088 




01441000 




0089 




01441500 




0089 




01442500 




0092 




01442600 




0096 




01442700 




0097 




01443000 




0097 




01443100 




0103 




01444100 




0106 




01444500 




0107 




01445000 




0109 




01445500 




0109 




01446000 




0113 




01446500 




0U7 




01446600 




0119 




01446700 




0120 




01447000 




0127 




01447100 




0128 




01447500 




0128 




01448000 




0128 




01455000 




Olll 




01455500 




0132 




01456000 




0133 




01456500 




0139 




01456600 




0140 




01457000 




0H6 




01458100 




01«7 




01458200 




0148 




01458300 




0H8 




01458500 




0148 




53 IS 154 LONG, 


NEXT SEG 


2 


01458900 




0051 




01459000 




0052 




01459100 




0053 




01459110 




0054 




01459120 




0055 




01459130 




0056 




01459200 




0059 




01459300 




0060 




01459310 




0061 




01459320 




0064 




01459400 




0069 




01459500 




0069 




2 IS 73 LONG, 


NEXT SEG 


1 


I IS 2 LONG, 


NEXT SEG 





62 IS 69 LONG, 


NEXT SIS 









• 

m 



62 



•* «■♦ 



4t 1 (-■ l» 



•* If 



H ff « 






NUMBER OF CARD-JMAGES PROCESSED = ^095f 



LABEL OOOOOOOOOLINE 00|76194?C0MP ILE R/C ALGOL LIBRARY 



• 



ALSOl ^R 






m 
m 



• 
• 
• 



/ 



